MICROBEE 


Direction And 
Distance 


By Peter Nesbitt 

DESIGNED for use by amateur radio 
operators, Direction and Distance indicates 
true direction and distance in nautical miles, 
standard miles or kilometres. It will also give 
the return bearing and long path distances. 
The information used has been based on 
mathematical sections in the ARRLA An- 
tenna Book. 

Decimal degrees are used throughout as 
the program converts them to radians for all 
calculations (lines 180 to 220). Don't try to 
calculate close locations, or those due north, 
south, east or west of your location, as they 
show up as computer errors. 


I0O CLS: PRINT" GREAT CIRCLE DIRECTICN/DIST" 
IIO PRINT: PRINT 

I20 AM3="CASINO":RSIl YOUR TOWN 

T30 As® eves fs eeu deca a eure 
a4u A2— -153.05:REM YOUR LONGITUDE 
I50 INPUT “NAME OF CITY/TOWN" BOS 
160 INPUT "LATETUDE, 3CUTH -Ve " BI 
170 INPUP "LONGITUDE, SAST -VE " B2 
I30 PIs3.14I59: PNG= (6/360) M( 247T) 
I90 AI=FNQ( AI) 

200 A2=FNG(A2) 
210 BI=PNG(BI) 

220 B2=FNG6(B2) 

230 A3=(B2-A2) 

240 Af= (SINC AI S@SIN(BI) }4+(CC5( AT ECO 5(BT)%705(A3)) 
250 A5= SQR(I-(A4#A4)) 

260 A6=AS5/A4 

270 AT=ATAN( AG) 

280 IF A6<$ TYR 290 “LSE 300 

290 AT=(PI+A7) 

300 NI=(600360@A7) /( 2@PI) 

3I0 N2= 21600-NI 

320 KI=NI@I.35@05:SI=NI@I.I5C51 

330 K2=N2@7.35205:S2=N2@T.15031 
340 CIm(SIN(BI)-(SIN( AT)®@8S(A7) ))/( 3IN(A7)#@COS(AT) ) 
350 C2=8QR(I~(CI#cr) 

360 ¢3=C2/cI 

370 C4=ATAN(C3) 

380 IF C3@$ THEN 390 ELSE 400 

390 C4=(PI+C4) 

400 €5=C4057. 2958 

410 IF SIN(A3})€@ THEN 430 “LS" 420 


Changes for the MicroBee: Because the 
MicroBee has 64 characters per line and the 
Super 80 has only 32, more information can 
be shown on the screen. 


100 CLS: FLINT “treat circle Direction and Distance" 


500 PRINT PAB( 2); "PROV" sTAB(I3)3"to";TAR(24) 55 AIM 5 PAD (34) g"DISTALCE" 
TAB(49) ;"DIGTANCE" 
510 RINT TAP( 23) pT IVADING" $7TAB( 33); "Naut. Hleo"s743(43) s"Kilometers" 


539 Tere DA (TL) gAG3STAR(II) $BO3 3 TAR (24) INT (C6)  TAB( 34) sTUT(IT) $ 
$1.3(50) sINT(KI) 

549 TRIM PAD( 23) $3" UTURN" s TAB( 34) 3"Lone Perth" 

550 Pulte PRINT PAPC 24) gINTCRI) sTAB( 34) s INT(N2) = PAB(SO) sINT(K2) 


In both programs, if you want the distance 
in statute miles, simply change the wording 
in the print-out lines and insert S1 and S2 in 
the line. Use is made of the INT functicn to 
limit the print width in the lines, and decimal- 
point accuracy isn't required in this program. 


READ ABOUT | 


PRATTL 


52 


°F OT EER 6 Hi SEE INN SEE ENN 


Mileage 


By Peter Ford 

HERE’S A WAY to find out where your petrol 
dollars go. The structure of Mileage Master 
is straightforward, as the various routines are 
separated by REMs. 

Data input routine: The program asks how 
many entries and then, if no file has been 
loaded, it asks for a starting mileage. Each 
piece of data to be entered is then prompted, 
and the distance between fills is computed to- 
gether with the average consumption. The 
date is entered as a floating-point variable, in 
an effort to keep the program simple On 
completion of data entry, you are returned to 
the menu. 

Print routine: The print routine displays a 
page of 12 lines of data at a time, eventually 
returning to the menu. 

Data save and load routines: These are 
similar to those recommended by the hand- 
book, with the addition of a couple of spacing 
loops in the save routine; this might help 
those users who have tape-recorder prob- 
lems. On compietion of these routines, you're 
returned to the menu. 

I've avoided adding a lengthy edit routine, 
sO beware, dont try entering tou much data 
at once. The best method Is to enter four or 
five lines before saving the file — that way, 
if you make a blue, you can do a re-run and 
load the last file saved. 


Master 


00100 REHM Mileave Paste: 

00110 REM by Peter Ford 

00120 REM 12/82 

00130 CLS:ZONE 12 

00140 STRS(1000) 

00150 DIM CO(75,.8),10i3: 

60160 FOR 192 TO 4tTO(L) e08NE x? Liber Ler YO6d 
00170 Al€6«" DATE DIST Abas LITRES 


C0180 REM **s4Renu Routines 

90190 PRINT TAB(30) "MENU"! PRIN? 

C0200 PRINT“1) LOAD DATA FROM TAPE” 
00210 PRINT"2) ENTER DATA" 

00220 PRINT"3) PRINT DATA” 

00230 PRINT"4) LPRINT DATA” 

00240 PRINT"S) SAVE DATA* 

00250 PRINT"6) END” 

00260 PRINTIPRINT*S@lect oetice: (1 75 6)" 
00270 GOSUB 3&¢ 

00280 X#INT VAL (X7$)) 

00290 IF X<1 OR X>& THEN 270 

00300 CLS!ON X GOSHB 2510,1010, 2310, 7 219, 2010, 320 
C0310 CLS!6C6T0 190 

60320 END 


00330 REMVerE YS Routine ene 
00340 PRINT"START TAPE PLAYER” 
00350 PRINTIPRINT"“Hit any key “3 
00360 K7®=#KEYS2IF K78="" THEN Ts. 
90370 RETURN 


C1000 REM *eeeData Irputteeeexistios File asst be loaded tirstoes 
01010 INPUT"How @any entrys to be mace” "12 
01020 IF YO>O THEN 1056 

91030 REM *#*Required only to gtar! a new ti leew 
01040 INPLT"Startires Mileage" tYO 

61050 FOR JT*A+i TO A+zZ 

01060 REM****Date to be entered thus! 12.82 
01070 INPUT"Date "$COCl, 1) 

01080 INPUT"Speedo "3C0(1,2) 

01090 INPUT“Litres “sCO(I,3) 

01100 INPUT"Cost "$3CO(1,4) 

O1110 YisCO(],2)-YOtYO2XCO(1,2)1CO(l. Zz) 2Yi 
O1120 CO(T,5)sY1/CO(1, 3) 

O1130 TO(2) #TO(2) +Y1i TO(3) 2TO(3)4CO (i 3) 8TO (4) TO (4) 400114) 
01140 NEXT I 

O1150 AzA+Z7: RETURN 

O150G REM*eeePrint Routir exes 

21510 CeO:FOR I=1 10 4 

01520 IF Ccl THEN PRIN? Al 

01530 FOR J=1 TO 

01540 PRINT (F10.2 CO(1,J)]. 

01550 NEXT J 

01960 C=C+1:1F C<i2 THEN 15% 

V1570 GOSUB 1450 

01580 CLS:C=0 

01590 PRINTINEXT I 

€1600 PRINT"TOTALS". 

O1610 TOS) =T0(2) /TO(3) 

01620 FOR I[=2 TO 5 

01630 PRINT[F10.2 TO(]) 1], 

01640 NEXT ItPRINT 

01630 GOSUB 350 

01660 RETURN 


Cos i Ke/l* 


02000 REM*¥eeeData Save Rout ines+e*« 
02010 PRINT“READY TO SAVE" 
02020 GOSUB 340 


02030 PRINT"Recording........-06 " 

02040 OUTS3 © 

02050 PRINT™ setsrtrrceereteuuseceecreregrecnerers 
02060 PRINT"! eter tree eee etre reae rae ert rates 


02070 PRINT"*#" 

02080 PRINT A 

02090 FOR J=1 TO 10:NEXT J 

02100 FOR I=#1 TOA 

02110 PRINT CO(T,1)8"-"CO(1,2)3"> "CO(1,3)5","CO(T,4)65"%,"CO(1>3S) 
02120 FOR J=1 TO 10:NEXT J 

02130 NEXT I 

02140 PRINT TC(2)5°,"TO(3)5 "> "TO(4)S","TO(S)3 "5 "YO 

02150 OUT #0 

02160 RETURN 


02500 REM*eesData Load Rout inet 
02510 PRINT"READY TO LOAD" 

02520 GOSUB 340 

02530 PRINT"“Loadinge.......-eeee- * 
02540 IN @3:0UT #O10UT #0 OFF 

02550 INPUT Z781IF 27$<>"*"THEN 2550 
02560 INPUT A 

02570 FOR I*1 TO A 

02580 INPUT CO(I,1)-CO(I,2),CO(I,3).CO(I,4) CO(I,5) 
02590 NEXT I 

02600 INPUT TO0(2),T0(3),TO(4),TO(3) »YO 
02610 IN ®O0r0UT @C6 

02620 RETURN : 

03000 REM *#*+Line Printer Routineses 
03010 PRINT"When printer ready.....-- a 
03020 GOSUB 350 

03030 LPRINT AlLS% 

03040 LPRINT 

03050 FOR I#1 TO ASFOR J=i TO 5 

03060 LPRINT (F10.2 CO(I,J)), 

03070 NEXT J 

03080 LPRINTINEXT I 

03090 T0(5)#T0(2) /TO(3) 

03100 GOSUB 3150 

03110 LPRINT TAB(S) "TOTALS". 

03120 FOR I=2 TO 3% 

O3130 LPRINTCF10.2 TO(1)], 

03140 NEXT ItLPRINT 

03150 LPRINT TAB(14)([A44 413 

03160 RETURN 


Pontoon 


By Jim Hendrickson 

PONTOON is a modification of a program 
which appeared in Your Computers August 
1982 edition for the Sinclair. Apart from 
changing the program to suit the MicroBee, 
| have added on-screen instructions and 
sound-effects. 

To run the program, the computer should 
be in the upper-case mode, and then RUN 
and ENTER should be typed. There is no 
need to use the ENTER key to make entries 
once the program is running because it uses 
the KEY$ function, which allows an “interac- 
tive” keyboard. 

To be dealt a card, press Y; this is con- 
tinued until you are happy with your hand. 
Then press the N key, and the computer will 
draw its own hand, with the final result and 


cumulative score displayed. [] 
OOLOO REM LLANE ON TOON sess 

OO11LO REM , 

OOL2O REM by 

o012%0 REM Jim Hendrick soh 

00140 REM 


OO1SO REM The concept for this program appeared in Your Computer Ayg 82 

00160 REM It was written by C.Makowski for the Sinclair and other computers. 

00170 REM The program was modified for the Microbee by Jim Hendrickson 

00180 REM to mate use of some of the Microbee’s special features 

0190 REM and to provide on screen instructions. 

90200 CLS: NORMAL 

0210 PRINT TAR 15: "WELCOME TO COMPUTER PONTOON. ":PLAY I. 

00220 PRINT TAB 153;"IN ORDER TO BE DEALT A CARD”":FLAY 20 

90230 PRINT TAB 15: “YOU MUST PRESS <Y .":FLAY 20 

00240 PRINT TAB 15:"QNCE YOU ARE SATISFIED WITH": PLAY 20 

OO250 PRINT TAB 15: "YOUR HAND FRESS «N°. ":FLAY 20 

00260 PRINT TAB 15: "THE COMPUTER WILL THEN DEAL ":PLAY 20 

OO270 PRINT TAB 153"ITS QWN HAND AND PRINT THE':PLAY 20 

00280 PRINT TAB 153 "RESULT. ":FLAY 20508 20808 20 

Q0290 PRINT TAB 153 "SHOULD YOU BE DEALT AN ACE”:PLAY 15 

OO200 FRINT TAB 15t"FOLLOW THE DIRECTIONS FROM":PLAY 17 

00310 PRINT TAB 153 “THE COMPUTER. ": PLAY 19 

OO32O0 PRINT\\ . 4 

OOSI PRINT TAB 13::UNDERLINE:PRINT"FRESS ANY FEY TO START THE GAME" : NORMAL : PLAY 
20,23 : : 

OO34O XIS=KEVS 

OO3SO IF XiS="" THEN INVERSE:FOR Z=i TO 100:NEXT Z:UNDERLINE:FOR Z=1 TO 1003s NEXT 
Z:GOTO 340 

OO3GHO PO 

00370 S=0 

00380 ESO 

00390 G=0 

Oo4gon [=o 

00410 k=O 

00420 L3ao 

00430 L2=0 

ON44D M250 

00450 M420 : "@ 

NO46O Mb=0 

00870 MO=0 

0480 Y=O 
00490 X=0 
90500 CLS 

00520 PRINT: INVERSErPRINT TAB 27: "PONTOON’! TAB 61: NORMAL 

00530 PRINT 

003540 PRINT 

00SSO INVERSE: PRINT“ YOUR CARDS “:NORMAL: PLAY 10 

00560 BiSerEVS 

00570 IF B16="Y" THEN GOTO 4600 

00580 IF Bi$="N" THEN GOTO 950 


Ae re pt el SS Sa 


00390 BOTO 560 

00600 A#INT(RND#15) +1 

00610 IF A=1 THEN GOTO 660 REM ACE 

00620 IF A=m11 THEN GOTO 790 REM JACK 

00630 IF A=12 THEN GOTO 830 REM QUEEN 

00640 IF A=zt3 THEN GOTO 870 REM KING 

00650 GOTO 910 

00660 PRINT “"5 "ACE! 

00670 PRINT 

00680 PRINT ; 
00690 PRINT"DO YOU WANT YOUR ACE TO = 1 OR 11 “ 
00700 PRINT"IF 1 PRESS <@> IF 11 PRESS <R> " 
00710 CLlOSKEYS 

00720 IF Ci®="" THEN GOTO 710 

00730 IF C1i8="Q" THEN LET A#i:GOTO 750 
00740 IF C1$=#"R" THEN LET A=11 ELSE PLAY 24:GOTO 690 
007350 LET D=A 

00760 PRINT ""$D, 

00770 LET E=E+D 

00780 GOTO 1290 

00790 PRINT “"3"J", 

00800 Fe10 

00810 G=G+F 

00820 GOTO 1290 

OOB3O PRINT ""s"Q" | 

00840 H= 10 

O08SO I=I+H 

00860 GOTO 1290 

00870 PRINT ""$"K", 

00880 J#10 

00890 KekeJ 

00900 GOTO 1290 

00910 Li=FLT(A) 

00920 PRINT ""$ Lt, 

00930 L2=L2+¢L1 

00940 GOTO 1290 

00980 PRINT 

00960 PRINT“POINTS". x 

00970 PRINT 

00980 INVERSE:PRINT " MY CARDS "asNORMAL PLAY 20 
00990 N@INT (RND#13)+1 

01000 IF Nei THEN GOTO 1050 REM ACE 

01010 IF Nell THEN GOTO 1130 REM JACK 

01020 IF Nei2 THEN GOTO 1170 REM QUEEN 

01030 IF Net3 THEN GOTO 1210 REM KING 

01040 GOTO 1250 | 

O1050 PRINT""$ "ACE" 

01060 PRINT"DO YOU WANT YOUR ACE TO =1 OR 11° 
01070 IF Yell THEN LET Amit 

01080 IF Yoa1! THEN LET Am). 

O1E°* L4aFLT (A) 


ra ZINT*"$L 4, 
f =L4+LS 
TO 1430 
c RINT CENT", 


Ollau M1is10 

01150 M2=N2-M1 

01160 GOTO 1430 

01170 PRINT ""9"Q", 

01180 M3210 

01190 Maenaems 

04200 GOTO 1430 

01210 PRINT “"3"K", 

01220 MS™10 

O1230 Mo=Mo+ns 

01240 GOTO 1430 

01250 M7=FLTIN) 

01260 PRINT" "§M7, 

01270 MO=MO+M7 

01280 GOTO 1430 

01290 XmE+QeleK+INT(L2) 

O1300 LF. X©21 THEN.GOTO 1320. 

01310 GOTO 1360 

01320 PRINT 

01330 PRINT TAB 213: INVERSE:PRINT “ PONTOON, YOU WIN “:NORMAL:FOR V=1 TO 24 STEP 
AsPLAY V,31NEXT V 

01340 PRINT 

01350 GOTO 1640 

01360 IF X>21 THEN GOTO 1380 

01370 GOTO 560 

01380 PRINT 

01390 PRINT“POINTS", x 
01400 PRINT 

Q1410 INVERSE:PRINT ""3" 
01420 GOTO 1640 
O1430 LET YaINT (LS+M24M4+M6+M0) 


BUSTED I WIN “:NORMAL: PRINT 


01440 IF Y>21 THEN GOTO 1460 

01450 GOTO 1480 

01460 PRINTIPRINT"POINTS", YsFPRINT""$TAB 213: INVERSE:PRINT " BUSTED YOU WIN ":NOR 
MAL: PRINT 

01470 GOTO 1640 

01480 IF Y<#17 THEN GOTO 990 

01490 IF Y=#21t THEN GOTO 1510 

01500 GOTO 1530 

01510 PRINT TAB 213: INVERSE:PRINT “ PONTOON I WIN “sNORMALSFORZ=1TO24 STEP 4:1PLA 
Y Z,3:NEXT Z: PRINT 

01520 GOTO 1£60 

01530 IF Y>17 AND X< #20 THEN GOTO 1550 

01540 GOTO 1600 

01550 IF X>¥Y THEN GOTO 1570 

01560 GOTO 1590 


01570 PRINT: PRINT"POINTS" ,Y: INVERSE:PRINT ""s" YOU WIN “3 :NORMAL 
01590 IF Y>=xX THEN GOTO 1600 

01600 PRINT: PRINT"POINTS".Y: INVERSE: PRINT eese T WIN "3 :NORMAL 
01610 GOTO 16460 

01430 STOP 


01640 LET PaP+t 

01650 GOTO 1690 

01460 LET S#S+1 

01679 GOTO 1910 

01480 PRINT 

01690 PRINT TAB 253: INVERSE:PRINT “ SCORE “:NORMAL 
01700 PRINT TAB 213 "PLAYER COMPUTER” 
O1710 PRINT TAB 225P3 

Q1720 PRINT TAB 345S; 

O1730 FOR T=1 TO 1500 

01740 NEXT T 


per OLS 
; = P<S THEN GOTO 380 
INT TAB 233"GAME OVER "3\\\ 


CINT TAB 253: INVERSE: PRINT “ SCORE “:NORMAL 
& RINT TAB 203 "PLAYER COMPUTER" 
O18 PRINT TAB 21;3;PiTAB 323S 
01810 PRINT 
01820 PRINT 
01830 PRINT 
01840 PRINT 
01850 PLAY 10,4720,4515.6 
91860 PRINT TAB 173:"DO YOU WANT ANOTHER GAME?" 
01870 Q18=KEVYS 
01880 IF Q1%="" THEN GOTO 1O70 
01890 IF Q18="VY" OR ehh THEN CLS:GOTO 3220 s 
01995 IF Q1%="N" OR Q18=" THEN CLS:PRINTV\\\\N\\\S TAB 193: UNDERLINE: FRINT" THANKS 
FOR THE GAME'"’: NORMAL ese GOTO 1870 
01900 GOTO 2ooOe 
01910 PRINT TAB 253: INVERSE: PRINT " SCORE ": NORMAL 
‘01920 PRINT TAB 203 "PLAYER COMPUTER" 
OAIIG PRINT TAB 2I3F: 
01940 FRINT TAB 3235: 
01950 FOR U=1l TO 1500 
01960 NEXT U 
O1970 ELS 
01980 IF S¢S THEN GOTO 780 
01990 GOTO 1770 , 
O2000 END 


Difficulty 


By M. Alexander 
MY PROGRAM Difficulty simulates a. drive 
the wrong way down a one-way street. Lines 
110 to 140 are used to form the characters 
for the cars and the explosions, while line 160 
makes use of memory location 258 to check 
if the car needs to be moved. — 

This location usually contains 255 until a 
key is pressed, when it changes to a number 
representing the pressed key (not ASCIl). 


Using this method gives smoother control of 
the car, though some users might like to 


change this line to: 


00160 A1$=KEY:IF A1$="A” 
THEN LET P=P-1 ELSE IF A1$=” 
THEN LET P=P +1 


Line 180 draws the road, while line 240 
checks for a key press on the Y key after the 
prompt. Line 250 creates the explosion if a 
car is hit. The variables used are: 

D1 = Difficulty (number of other cars). 
P = Car position. 

R = Road position. 

K1 = Distance travelled. 

J = Number of cars hit. 

When the program is run, the car appears 
at mid-screen. A press on the A key moves 
it to the left and the key moves it to the right. 


APPLE 


PRV2A DATA B, 36,165,189, 955,139, 193,76, 76,20, 76, 26," 


— BY21% K1=K1+%.05:POKE P,32:PRINT:GOTO 164 rr es a 


‘The game continues until 10 cars have been 


hit, whereupon it displays the distance travel- | 
led. . 


$9144 CLS: INPUT"Difficulty";21: CUS :LORES:CURS 36% 
OA716 FOR Ret #0. 96s22AD As PUKE 645144R ALhokT 2 


AY 755 
Pe eee 
189,74,3,%,2, 186, 254, 186,°6, 56,55, 196, 254, 186 eed 


281398 DATA 2,9,9,2,9 BB Bs toe tre sr Ae Dahan Bedale teLeLeterrs 


194,198,94,44, 126, 64, 192,14 ,2,4,0,7,71 134,56, 22,924, 
198,94,44, 196,608,122, 14,4,2 ~ : 

26°48 DATA 36,24,126,85,57, 214, 194, 226,94,45,224,62, 193,86, 
64,44 . 

AB1S@ R=65:P=61975 2 \ 

OBI6A AsvEZK(258):1F Az22? THEN LET PeP+? tsb IF isi TEES 

. LET PeP-! 

23172 IF igig Noi THEN GOSUE, 258° 

$8189 POKE P,192:SET R,A:SzT R,1: SET ih, 2:SED Re12,8:5:7 Ret7,1 
:SET +13, 24 creel ero ae 

$9198 IP INT(RND*D1)=f THEN POKE 62461+(8/2)+(END*5), 197 

$9200 IF #<O THEN LET ReJ BLS IF R147 THEN LET R= 127 

$$228 PRINT*You lasted for";K1;" kilometres":PRINI"Play aguin"; 

$9230 FOR TxP TO SAB:NzXT T 

28248 IF PEEK(258)=255 THEN 243 ELSE IF PEER(2 58)=14 THEN END 
ELSE RUN 

$9258 PLAY Y:J=J41:POKE P,194:PLAY J,2:POKE P,195:FLAY 3,2: 
FOKE P,196:PLAY 3,2:PoKs P,VI7:IF Ist THEN 228 ELSE 
‘PLAY de 2:RETURN 


4 


Ullo Revisited 


By Derek Au | : 
THIS GREETING program is a modified ver- 
sion of Apple Ullo, featured in the July 1981 
issue of Your Computer. A new RENAME 
command is incorporated, along with error 
messages with options. 


18 TEXT : HOME :DS = CHRS (4): PRINT 
DS"CATALOG"IB = PEEK (37) - 2: IF 
B > 22 THEN B = 22 

20 T = @:CH = 4: FOR CV = @ TO 23: GOSUB 176: IFC 
< > 168THEN POKE P - 1,219: POKE P,T + 193: 
POKE P + 1,221:T = T + 1:S = CV 

30 NEXT CV: VTAB 24:AS = "TYPE LETTER TO RUN, OR 
LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 RENAME=5 
EXIT=6..." 

49 BS = "RUN": HTAB 1: PRINT LEFTS (AS,39);:AS = 

: MIDS (AS,2) + LEFTS (AS,1):K = PEEK ( - ]6384): 

IF K < 128 THEN FOR K = 1 TO 75: NEXT K:K = 
FRE (@): GOTO 48 

56 POKE - 16368,0:K = K- 176: IF K<1ORK>6 
THEN 130 ‘ 

66 HTAB 1: CALL - 868: IF K = 6 THEN END 

7@ PRINT "PRESS 'LETTER' YOU WISH TO "3: IF K = 1 
THEN BS = "LOAD" | 

8 IF K = 2 THEN BS = "LOCK" 


98 i. sS = 3 THEN BS = "UNLOCK" 
100 = 4 THEN BS = "DELETE": FLASH : ONERR 
eon 200 


1186 IF K = 5 THEN BS = "RENAME": ONERR GOTO 260 | 

12@ PRINT BS;: CALL —- 198: NORMAL : GET KS:K = 
ASC (KS) - 48 : 

136 IF K < 17 OR K > T + 16 THEN 4G 

1486 CH=1:CV=S - T+ K- 16: GOSUB17@: IFC = 

194 AND (BS = "RUN" OR BS = "LOAD") THEN BS = "B" 
+ BS 

158 FOR CH = 6 TO 39: GOSUB 170:BS$ = BS + CHRS 
(C):.NEXT CH: IF LEFTS (BS,6) = "RENAME" THEN 190 

166 VTAB PEEK (37) + 1: HTAB l: CALL - 868: 
PRINT BS: PRINT DS;BS: GOTO 16 

17@ Cl = INT (CV / 8):C2 =CV-—- Cl * 8:P = 1624 + 
128 * C2 + 49 * Cl + CH:C = PEEK (P): RETURN 

‘188 FOR CH = 6 TO 39: GOSUB 17@:BS = BS + CHRS 
(C): NEXT CH: HTAB 1: CALL - 868: PRINT BS: PRINT 
DS$;BS: GOTO 18 

196 HTAB 1: VTAB 23: PRINT “ORIGINAL:"; MIDS 
(BS,7): VTAB PEEK (37): HTAB 1: CALL —- 868: HTAB 
1: INPUT "NEW FILENAME? ";NES: PRINT CHRS (4);BS; 
CHRS (44);NES: GOTO 16 . 

206 ERR= PEEK (222): IF LEFTS (BS,6) = "DELETE" 
THEN 236 

216 IF ERR = 16 ‘THEN VTAB 23: INPUT "FILE 
LOCKED: (C)ONTINUE OR (A)BORT?";NS: IF NS = "C" 
THEN PRINT DS;"UNLOCK"; MIDS (BS;7): PRINT DS;BS; 
CHRS (44);NES: GOTO 16 

226 IF NS = “A" THEN 10 

236 IF ERR=1@THEN HTAB 1: VTAB 23: INPUT 
"FILE LOCKED: (C)ONTINUE OR (A)BORT?":NS: IF NS = 
"Cc" THEN PRINT DS;"UNLOCK"; MIDS (BS,7): PRINT 
DS;B$: GOTO 10 

248 GOTO 18 


Tower Of Hanoi 


By M.J. Smith 

THE TOWER of Hanoi is a puzzle made up | 
of six blocks forming a tower positioned on 
one of three sites. The task is to transfer the 
whole tower from one position to another, 
block by block. The puzzle has six blocks (63 
moves), and the program will tell you if you 
have made any illegal moves or finished. 


Of ohne Lem: as ‘ a i , ‘ 

Lo CA bt5O: CIN nS .h rk = = Gee RS =~ ess 

é€ FOR M = 6 Th i sigh - i : 

SmAtwR eis = tls SOS + LCR. Sy = CSPHRCOR LZ = 1SHCO = 3r1. = OF: BUSUG 
oh : 

eooNmeaT fie = bth = Sr Gesu Lad 

S HPLOT 8,140 TO 2ra,1ah 

& PORE = 16504,0: PORE - 16Z287,8 

le GOTO lem 

494 ' 


(od REM ORHWING SECTIONS << 
116) HCOLOR= Co 


fo PLOT ACT 6148 - ANCTIL 32 * 1 TO WR LE ee oe Le ies + Salat - 4 

— ROTTS) #1 TO Adie cal eB + Soesae - ne ddd © lee 

i et MeL ANCL. 250140 - Wet liedd © IV TO HMC TI,e) © cil “6 Sg140 - 4 
MOTs33 * 1 TO Hides + C1 © ee Soelde - Hi. 8s ees 

a9d 0 RETURN ; 

199, 


208 KEM GIVE X CO-URO. 2. : 
210 TF WaCTI,1> 5 2 THEN Wee disce = 
2e6 IF HeCiIs,1) = 2 THEM HeUITI,Zs = 138 
236 «OIF MaCITs1) 2 3 THEN We Tloc) = 

296 RETURN 

295 3 

1088 Rett MAIN LOOPS << 

BS. Lue Pe 2 TO 6: iF WAPole em - bois THEN NENT 2 IF HMC Lele CO > 

2 THEN Tee. ees PRItT “CONGRATULATIONS 4": PRINT "WOU HAVE COMPLETE - 
u The PUZZL ENO : ‘ 

1@16 IF PEEK CR > < 127 THEN 1816 
1620 4 = PEEK CRK: POKE RS.8 


BES IF X 4 3 LSE AND Soe 218 ANG < e.14% THEN 181° 


» 138 Gace x < 
1030 TF & = YS UK A © Zle THEN ilies 

ju4u IF § = 136 THEN Y = 1: = ~ 1: GOTO 1500 © 

Gee IF &% = 149 THEN © = 3: = 1: GOTO 1500 

i 2 : ; 

2100 REM CHANGE BLOCK<<? 

1118 CG = 3: GOSUB 1060 

1120 IF 4 = 193 THEN [i 3 TL - is IF YE 4.4 THEN iT = 6 
Wu25 IF Kz 218 THEN 17 = 11 + 1: TF di + 6 THEN j1-= 1 
4136 CO = 5: GOSUB 100 . 

1196 =GOTO 16eu ' ; 

1499 ¢ 

‘SOG REM «TEST MOUEKK&< 

1510 IF H“CII,1 = O THEN PRINT. CHRE 673: GOTO 1000 


1936 FOR. 321 TO Ts TR Wels eed lel ss ONO Ie LTT SINT ChRE 
aon BaTe debe : : ° 1 THE a CrRe 

oe NEXT . ; 

1556 FOR gy = 1 TO ue IF oW%C got) 2 AXCTI,1 a + A Ae 

1585. NEXT :FP = GR: GUTU Zeuu , re WGN eee 

i57@ iF Hac TI,1: = 2 THEN lee 

1380 FUR 9 = 1 TO Ts TF WeCed> MKC ELL + Ae 2 AND so} TI THEN 1 
wee : Reiss 

wb NEST ror = Ad < 2: GOTO 2aue : 

1gs9S : 

éd0 REM MOVE BLOCKS << 

2018 CO = 4: GOSLE lau 

aig cc 2 & i a ; : 

e626 FOR J = 6 To i + i STEP = is iF HM Jol) = ia ats + PP THEN CLs 
clot 


205 NEAT rat LL eds = OG + is, Lab = 4c 1 ot 1% OP 
2630 SUSYe Pa 
édas CO = 5: GOSUB 108: 


+ 2686 GOTO 106u 


9999 s 
10M REM INSTRUCTIONS << 
sai TEXT : HONE ¢ UTHE. Bs HTAB 132 PRINT ° “TOHER uF HANOI" - 
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APPLE 


16@2@ UTRE 14: HTHE 14: PRIN: "By Mo. SME TR” 
iBOS6 §=GOSUB caved 
10046 (JTRE S 
(odS@ PRINT "THERE ARE SIX BUCKS, ALL OF oer SIZES. THE PUZZLE ST 
BRTS OFF WITH THE BLOCKS ARRANGED IN A TCH 
. Ledeu PRINT : rr TOWER Is POSITIONED oN pee GF THREE SITES. YOU M 
Meo TRANSFER THE TOWER FROIN ITS ORIGIONRL SPOT TO ONE OF THE OTHER T 
.0o? 7 PRINT : PRINT “0 May ONLY MOUE Ne as AT # OTIME, 
BT MOVE ONE THAT IS LINE | UNGER FNC 
seed PRINT : FRINT "QT nid TIN CAN YOU MOE a BLOCK ONTO A BLOCK OF SHA 
LLER SIZE THAN ITSecr 
hatyy §=GOSUR oda 


HNO YOU CANN 


18118) PRINT "THE GUSEK YOU SRE CURRENTLY USING HILL BE ORANGE. TO CHANGE 
OCKS » YOU MHY PRESS EITHER 4 OR “eo 


1a12e PRINT "key WwW WiLL SELECT A BLOCK THAT IS UNE SIZE SMALLER” 
“ {UL3@ PRINT "KEY . wcll TELECT A BLOCK THAT IS ONE SIZE LARGER” 


2 Fron: - 
Gilby PRINT "TO ME BW BLOCK PRESS CONE OF THE ARROWS" 


\ 23: HTAB Bs EF RINT "CHIT SPRCE GAR TO CONTINUE ?": IF PEEK ¢ - 
16384 + - Thi) Tren Zoid 
Stale POKE - leteteds HOME > RETURN 


Machine Code 
For BASIC 


By Derek Au 

THIS PROGRAM decompiles a machine- 
code file into an Applesoft program consisting 
of POKEs and line numbers. This is useful 
for having machine-language sub-routines 
ready poked into memory from BASIC. 


10 PRINT "NOMON C,I,0” 

28 HOME 

38 PRINT 

40 INPUT “:ENTER STARTING ADDRESS:?";AS: 
A= VAL (AS) 


56 PRINT : PRINT 
60 INPUT ":ENTER ENDING ADDRESS:?";X$ 
76 X= VAL (X§) 


88 DIM LINE(Z) 
98 INPUT "YOUR DESIRED STARTING LINE:>?";D 
108 HOME 
110 POKE 34,2: PRINT " 
FILE " 
128 PRINT "CATALOG" 
130 INPUT "FILENAME:->";FILES 
146 PRINT “BLOAD"';FILES ‘ 
158 POKE 34,0 
168 HOME 
178 PRINT "OPEN CODE" 
188 PRINT "DELETE CODE" 
198 PRINT "OPEN CODE" 
208 PRINT "WRITE CODE" 
210 PRINT "DELG,460": FOR PR=ATO VAL (XS) 
220 cCO=CO+1 
238 IF CO = 10 THEN CO = 1 
248 IF CO< »> 1 THEN 286 
250 PRINT 
260 PRINT D;" "; 
27@ D=D+1¢ 
.286 PRINT " POKE ";PR;", "; PEEK (PR);" :"; 
298 NEXT PR 
308 PRINT : PRINT "CLOSE CODE" 
310 PRINT "MON C,I,0" 
328 PRINT "EXEC CODE" 
330 END 


SELECT MACHINE-CODE 


Ullo Again... 


By S. Zanker 

WITH THIS program, you will know how 
much random-access memory (RAM) your 
computer contains, and which slots have disk 
cards, without having to open the cover. 

You will also know how much memory is 
available to an Applesoft BASIC program, 
and where that program will be located, and 
the number of buffers available for disk files 
(current value of MAXFILES). 

The program variables contain this infor- 
mation: 

DAY$ = Date of creation (you supply) 

TI$ = Disk title (you supply) 

MEM = Highest RAM address + 1 

TY = Type of disk (SLAVE/MASTER) 

TYS = Type of disk (SLAVE’//MASTER’) 
= Current value of HIMEM 

PR = Pointer to start of basic program 
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FR = Free memory for basic program 


VOL = Volume number of disk 
= Current value of MAXFILES 
SP$ = Five spaces for editing 


Line 20 gives you the option of recording 
the date the disk was initialised. Line 30 
enables you to give the disk a title. There is 
a 40-character limit. 

Line 50 disables the INIT command, pre- 
venting loss of non-write-protected disks. 

Line 60 displays the amount of RAM mea- 
sured in 1024 bytes. 

Lines 70 and 80 display the type of disk 
last booted (SLAVE/MASTER), and the crea- 
tion date. 

Line 90 prints an inverse bar on the screen. 

Lines 110 to 130 give a formatted display 
of the variables concerning BASIC program 
memory. 

Lines 140 and 150 poke and execute the 
machine-language routine which looks for 
disk cards. 

Another inverse line is printed at line 160. 
The screen is now divided into three sections: 
the top section deals with system data, the 
middle section with free memory and the 
lower section with disk information, which is 
displayed by lines 170 and 180. 

Line 190 asks if you want a CATALOG. 
Your response will default to yes. 

Line 200 issues the command, if you want 
a second greeting program, replace the state- 
ment with PRINT CHR$(4) RUN filename’. 

Line 210 rings a bell and wipes the pro- 
gram from memory, ready for use. 

The program can be run on any size sys- 
tem. You'll be surprised how much RAM you 
have remaining after zero page, the input buf- 
fer, screen memory and DOS have all had 
their share. 


18 REM GREETING PROGRAM 
28 DAYS = “G1JUL82" 
38 TITLES = “<> SUPPLY YOUR TITLE HERE <>" 
46 MEM = ( PEEK (978) + 35) * 256:TY = ( PEEK 
(978) + 25) * 256 +.254:TT = (41 - 
LEN (TI$)) / 2:TT = TT + (TT < 1) 
56 POKE MEM - 6833,96 
60 TEXT : HOME : NORMAL ; 
}[+ “s;MEM / 1024;"K" 
78 PRINT " DOS 3.3"; TAB( 38);:TYS = "MASTER": 
IF PEEK (TY) < > 54 THEN TYS = "SLAVE “: FLASH 
80 PRINT TYS;" DISK";: NORMAL : PRINT TAB( 
13);"CREATED "“;DAYS 
98 PRINT : INVERSE : PRINT TAB( 40);"": NORMAL 
10@ HI = PEEK (115) + PEEK (116) * 256:PR = 
PEEK (103) + PEEK (104) * 256:FR=HI - PR + 


PRINT TAB( 14);"APPLE 


1:VOL = PEEK (MEM - 2058):MF = PEEK (MEM - 
5545):SP$ =" 

11@ PRINT" HIMEM= "; RIGHTS (SPS + STRS 
(HI) ,5) 


126 PRINT “"PROGRAM= "; RIGHTS (SP$ + STRS$ 
(PR), i TPB 28) ;"MAXFILES= ";MF: PRINT TAB( 
16) ;"~----- 

138 PRINT "FRE MEM= "; RIGHTS (SPS + STRS 
(FR) ,5)3" ("; INT (ER / 1624);"K)": PRINT 

140 FOR A = 768 TO 818: READ B: POKE A,B: NEXT : 
DATA 162,0,169,200,134,6,133,7,168,7,198,7, 
165,7,201,192,240,24,177,6,217,1,251, 208,239, 
136,136,16,245,165,7,233,192,32,227,253,32, 
72,249,76,8,3,96 

15@ PRINT "DISK CARDS ARE IN SLOT(S): 
768: PRINT : PRINT 

168 INVERSE : PRINT TAB( 48);" ": NORMAL 

178 PRINT TAB( 13)"DISK VOLUME #";VOL: PRINT 

180 PRINT TAB( TT);TIS: PRINT : PRINT 

198 PRINT "CATALOG [Y] [N] ?[Y]";: HTAB PEEK 
(36) - 1: POKE 49168,6: GET ANS: PRINT ANS 

206 IF ANS < > "N" THEN PRINT CHRS 
(4) "CATALOG" 

218 CALL - 198: NEW 


"se: CALL 


Epson 
Connections 


By John Marquet 
| HAVE an Apple II fitted out as a Pascal pro- 
gram development tool. The system has 48 
kilobytes of memory, two disks, a 20-line by 
80-character monitor and an Epson MS80F/T 
printer. Using this system, | have developed 
a program for printing one or more copies of 
a UCSD Pascal text file on an Epson printer, 
with an optional character density or size. 
The UCSD Pascal text editor can handle 
and format simple correspondence as well as 
sourcing programs. When the dense-print on- 
tion is selected on the printer, a double-s 


is given on each character, and the matrix 


print becomes clearer. 

The program uses some of the features of 
the UCSD Pascal — for example, the file-nam- 
ing conventions. 


program typetext; 

var hardcop,infile: text; 
nusbercopy,indent,loop: integer; 
newk, inname: string; 
contr: char; 


procedure initialise; 
begin 
writeln; 
writeln(’John’’s text output’); 
writeln(’Note that an input line with a beading man 
writeln(’result in a page throes on output.’); 
inname: =’ 
write(’ Type name of input text fzxle: 7); 
readin (inname); 
if pos(’.”,1nmname)=0 then inname:=concat (inname, 
(&$1-8) 
reset (infile, inname) ; 
if ioresult<>0 then begin 
writeln(’File not found’); 
exit (program) 


will? )3 


> TEXT’); 


end 
(8SI+B) 
contr:=” ” 
writeln(’Enter < for small, > for large print’) 3 
writeln(’else & for high density normal size print.’); 


writelin(’Any other character gives normal size and density.’ 


write(’Type of print? ”);5 
readin(contr); 
2# contr = ’<’ then begin 
write (’OFffset (no. of char spaces in left margin) °')3 
readin (indent) ; 
end else indent:=20; 
write(’No. of copies”? 7); 
readin (numbercopy) ; 
if numbercopy<=0 then exit (program) ; 
writeln(’Set top of form on printer, then key "return"’); 
readin (newk); 
rewrite (hardcop, ’ printer: ’)35 
end; 
begin 
while true do begin 
initialise; 
repeat begin 
reset (infile); 
while (not eof (infile)) do begin 
readin(infile,newk); 
writeln (newk); 
if pos(’'’,newk)=1 then 
begin 
write (hardcop,chr (12));5 
newkCij:=’ 7’; 
end; 
begin 
case contr of 
7<"3 begin 
write (hardcop,chr (15))3; 
for loop:=1 to indent do write(hardcop,” ” 
end; 
">’s write(hardcop,chr (14)); 
"S’s write (hardcop,chr (27),’°E&’); 
end; 
writeln(hardcop, newk); 
case contr of 
"<7 3 write (hardcop,chr (18));5 
"#8? s write (hardcop,chr (27),’F"); 
end; 
end; 
end; 
number copy: =number copy-1; 
if numbercopy;>0O then write (hardcop,chr (12)); 
end; 
until number copy=0; 
close(infile); 
close (hardcop) ; 
end; 
end. 


Hackatext 


By Derek Au 

HACKATEXT is a program which creates se- 

quential files but allows you to input commas 

and colons which the MAKE TEXT program 

een on the System Master disk cannot 
for example, BSAVE PRO- 

GRAM ,A$4000,L8192,S6,V100,D2. 


~ 


1@ REM MAKE TEXT 

26 HOME 

38 HTAB 10: PRINT "TEXT-FILE CREATOR#1" 

40  HTAB 5: VTAB 7 

5@ PRINT " (M)AKE TEXT ™s 
PRINT " (C) ATALOG ms 
PRINT " (E)xIT * 

68 PRINT " WHICH?";: GET BS 

70 IF BS = "M" THEN 110 

80 IF BS ="C" THEN PRINT: INPUT "PRESS 
"RETURN' TO CATALOG";NS$: PRINT CHRS (4)"CATALOG": 
INPUT "";NS: GOTO 20 , 

98 IF BS = "E" THEN HOME: PRINT "BYE!!": END 

108 PRINT CHRS (7): GOTO 20 

116 PRINT : PRINT "MAKING TEXT: USE <CTRL:F> TO 
ESCAPE..... <CTRL: R>ETURN..." 

128 A = 8192 

130 GET WS: PRINT WS; 

148 IF WS = CHRS (6) THEN 180 

15@ IF WS = CHRS (18) THEN A = 8192: GOTO 26 

16@ POKE A, ASC (WS):A=A+1 

178 GOTO 130 

186 INPUT "FINISHED?:->";NS 

198 IF LEFTS (NS,1l) = "Y" THEN 210 

206 GOTO 1390 

216 INPUT "FILENAME?:->";FILES 

2206 INPUT "(T)EXT-FILE OR (B) INARY-FILE?:->";MS: 
IF MS = "B" THEN 320 

230 IF MS = "T" THEN 256 

2’~ PRINT CHRS (7): VTAB. PEEK (37): GOTO 220 
RINT CHRS (4)"OPEN";FILES 

2 PRINT CHRS (4)"WRITE";FILES 

270 FORWR=8192T0OA 

280 PRINT CHRS ( PEEK (WR)); 

290 NEXT 

306 PRINT : PRINT CHRS (4)"CLOSE";FILES 

318 GOTO 20 . 

320 PRINT CHRS (4)"BSAVE";FILES;",A8192,L"; 
A - 8192 

338 GOTO 20 


DISCOUNTERS 
| OZI-SOFT | Gcommecore | JC ATARI | KAYPRO 


Siren 


By Robert Chalmers 

HAVE YOU ever needed a short program 
that will sound an alarm for you at a pre-de- 
termined point in a main program? 

Siren is a little machine-language program 
that will do just that. It is listed by code, hex 
and decimal, with a short demonstration pro- 
gram to show its use from within a larger 
framework. The starting address is 804 (dec), 
usually free for machine-code work. 


16 FOR I = 804 TO 819 

20 READ A 

38 POKE I,A 

4@ NEXT I 

5@ DATA 160,8,169,106,153,288,7,32,58,255,200,192,40,208, 243,96 


To instigate this program from BASIC, 
use this method: 


LDY 0@ LOAD Y WITH @ 

LDA 6A LOAD ACCUMULATOR WITH FLASHING * 

STAS@7DD,Y STORE ACCUMULATOR AT $87D@ + CONTENTS OF Y. 
(BOTTOM LINE OF SCREEN.) 

JSR FF3A JUMP TO SUBROUTINE IN MONITOR THAT RINGS OR 
BELL 

INY INCREMENT Y REGISTER BY 1 

CPY $28 COMPARE VALUE IN Y TO $28(4@ DEC) 

BNE F3 BRANCH BACK 13 STEPS IF Y IS NOT EQUAL TO 
$28 (48) 

RTS RETURN TO MAIN PROGRAM 


To demonstrate this in use, add the 
following: 


6@ PRINT "ENTER FIVE NUMBERS." 

76 N=@: INPUT “INUPT A NUMBER.";B 

88 LET N=N+1] 

9@ PRINT B:IF N=5 THEN CALL 804 

188 GOTO 76 # 


Merry Christmas 


By Derek Au 

THIS PROGRAM plays the traditional “We 
Wish You A Merry Christmas” tune. Just 
some short programming fun! The program 
POKES some sound routines which can be 
used in your own programs. Just: POKE 
768,(pitch 1-255) : POKE 769,(duration 1- 
255) : CALL 770. 


18 GOSUB 110 
28 HOME 
386 AS = "WE WISH YOU A MERRY CHRISTMAS', 


WE WISH YOU A MERRY CHRISTMAS', WE WISH 
YOU A MERRY CHRISTMAS', eee AND A ‘HAPPY 
NEW YEAR!' " 

46 DATA 133,116, 98,99, 98,99,88,80, 98,1060,105,116, 
117,138, 117,158, 117,158, 88,119, 
88,118, 78,75, 88,99, 98,99, 105,150, 105,15@, 
105,160, 78,108, 78,108, 67,110 

5@ DATA 78,100,88,100,98,100, 98,108, 133,130, 
133,138, 117,115, 88,120, 105,128, 98,200 


66 FOR R= 1 TO 38 

708 READ P,D 

8@  POKE 768,P: POKE 769,D: CALL 770 

98 NEXT 

100 END 

116 POKE 768,8: POKE 769,173: POKE 770,173: POKE 
771,48: POKE 772,192: POKE 773,136: POKE 774,208: 
POKE 775,5: POKE 776,206: 

128 POKE 777,1: POKE 778,3: POKE 779,240: POKE 
786,9: POKE 781,202: POKE 782,208: POKE 783,245: 
POKE 784,174: POKE 785,@: 

138 POKE 786,3: POKE 787,76: POKE 788,2: POKE 
789,3: POKE 798,96: POKE 791,@: 

148 RETURN 


OUR COURIERS DELIVER TO YOUR DOOR 
ORDER HOTLINE (02) 232-7704 


COMPUTER 
WIGS 


BANKCARD 


MOST ORDERS SHIPPED WITHIN 48 HRS 
14-DAY MONEY BACK GUARANTEE 


CE 


ve WE WILL TRY TO BEAT ANY CURRENTLY ADVERTISED 


PRI 
yx WRITE TO: G.P.O. BOX 4475, SYDNEY, N.S.W. 2001. 


MAIL ORDER 


ADVERTISING PRICE LIST 
Vic 20 — Priced too low to list 
Vic 1541 Single Disk Drive 599.00 
Vic Datassette : 
Joystick Controller 
Vic 1515 Graphics Printer 
Vic Super Expander 
3K Memory Expansion 
8K Memory Expansion 
16K Memory Expansion 


Software for VIC 20 

Games Pack 1 (3 programs) 

Games Pack 2 ( 3 programs) 

Ludwig’s Lemon Laser 

Kongo Kong 

Annihilator 

Trek 

Bug Blast 

Headon 

Paratrooper 

Cricket 

Artillery 

Alien Invasion 

Adventurer Pack (8k or 16k) 

Allied Defense 

Mail it 20 

Micro Hex Assembler Editor 
(3k or 8k) 

Cosmic Crystals (paddles) 

Rebel Defender (8k & paddles) 

Cosmic Crusader 

Blasteroids 

Ultimate Tank 3k 

Chimp Chase 

Galactic Crossfire 

Cheque Book (3k, 8k or 16k) 

Horse File (3k, 8k or 16k) 

Grave Robbers 


» Dungeon Quest (16k) 


Adventure Pack 1 (3 programs) 
Adventure Pack 2 (3 programs) 
4 in one Games Special 


All Commodore VIC 20 games 
cartridges 35.00 

Creative Software cartridge for VIC 20 

Choplifter, Trashman, Serpentine, 

Astra Blitz, Apple Panic, All 49.95 

3 slot memory expansion board 

now with on/off and reset switch 59.95 

Light pens now available for VIC 20 

CALL FOR PRICE 


COMMODORE 64 
CALL FOR PRICE 


ReTtatN ps bare Pa cl on 
Ba PP (et Geet roe tae yey 2S am 
(Aaa eels 


isistetae aval 


COMMODORE 64 SOFTWARE 


Grave Robbers 

Annihilator 

Trek 

Adventurer Pack 1 (3 programs) 
Adventurer Pack 2 (3 programs) 


HARDWARE 


Atari 800 Computer 48K 
with Basic 

Atari 400 Computer 48K 

Atari 410 Program Recorder 

Atari 810 Disk Drive 

Atari Joystick per Pair 


SOFTWARE 
Wordprocessor (Disk) 
Personal Financial Management (D) 
Conversational French (T) 
Conversational German (T) 
Conversational Spanish (T) 
Conversational! Italian (T) 
Pacman (Cart) 

Centipede (C) 

Star Raiders (C) 

Space Invaders (C) 

Missile Command (C) 
Asteroids (C) 

Apple Panic (C or D) 


KAYPRO Ii COMPUTER Including 
SBasic CP’M. Profit Plan, Pertect Calc. Perfect 
Writer, Perfect Speller and Pertect Filer 

64K Memory, 8 Monitor, 200K per disk. fully 
portable PHONE FOR OUR VERY SPECIAL 
PRICE! 


PRINTERS 


Brother HRI DaisyWheel 15° 1299.00 
CITOH 8510 80 Col Dot Matrix 995.00 
CITOH1550 132 Col DotMatrix 1195.00 
CITOH F1040 Daisy Wheel 15’ 2095.00 
Star Printer Centronics Parallel 529.00 


FREIGHT CHARGES 


Under 5KG — ADD $500 
5-10KG — ADD $7.50 
PRICES SUBJECT TO CHANGE 
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Artist 


By Tony Hinde 

ARTIST is a program that stemmed from a 
simple desire to please my five-year-old 
neighbour. To draw anything on the screen, 
you use the four arrow keys. To get a 
diagonal line, you must press the appropriate 
two keys — for example, up and left will draw 
a line toward the top left-hand corner of the 
screen. CLEAR will clear the screen. 

If you don't own a GP-80, simply delete line 
135 and from the remark line onward. Once 
you're satisfied with your drawing, press the 
space bar and it will print a 4.4 cm by 3.8 
mm copy on to the printer. 

You can add functions to the program, like 
one to save the screen data to tape for 
later use. 


18 CLS:’ 

28 CLEARZOO’ 

38 DEF INTA-2 

33 %863: ¥223 

48 P=PEEK( 15359): SETCX, ¥):RESETC X,Y): IFP#QTHEN4S@ 

45 SETCX.Y) 

SQ IFP#8THENY#Y-1 

6@ IFP=16THENY#Y+1 

70 IFP*32THENM=X- 1 

80 IFP=64THENX=X+1 

90 IFP#2THENCLS 

100 IFP=72THENY#Y-1' X=xX+1 

110 IFP=48THENYsY+1 :X=x-1 

128 IFP=BQTHENX®X+1 © Y=¥+1 
' 130 IFP=4QTHENY#Y~1 : X=X-1 

135 IFP=128THEN28O 

14@ IFX>127THENK=127 

150 IFX<@THENX=@ 

168 IFY>47THENY=47 

170 IFY<@THENY=8 

188 GOTO4e 


200 ’ This Gives a hard coPy of the screen on a GP-88 Printer, 


210 CLEAR182@ 

220 DIMAC 128) 

225 LPRINTCHRS(8 > 

230 FORX=0T0127 

235 Y=P 

237 IFY>47THENG® 

248 R=POINTCX, Y¥-1 

250 M=M+R¥3 

268 YeY+1 R=POINTCX, YK-1  MEM#REL2 
278 Y=Y+1:R=POINTCX, Y X-1  MeM+RK48 
280 YeV+1 REPOINT(, YK-1  MEM+REE4: KaK#R 
(298 YaY+1 REPOINTCK, YR-1  KeK+R¥6 

30@ YeY+1 R=POINTCX, Y R-1 : K2K+RE24 

310 YeY+1: IFY<48THENR=POINTC X, Y ¥-1  K2K+RK96 
320 M=M+128 K=K+128 

330 ACK =K 

340 LPRINTCHRS(M); 

352 M=8:K=a 

360 NEXT 

37@ LPRINT 

380 FORX=QT0127:LPRINTCHRS(ACX >); ‘NEXT 
390 LPRINT 

400 P=P+7 

419 GOTO23a 


(Model 3 with printer): 


Check Your 
Cheques 


By R.C. Heslewood 

THIS PROGRAM will store and access 
cheque records as a complete listing or, if 
hard copy is required, will output them to a 
line printer. Though it was written for cheque 
records, it can be used for cash or other 
types of transactions. 

The program will run on a machine with 16 
kilobytes of RAM, and handle up to 250 en- 
tries and 20 categories. Those who have 
larger memory capacities can increase the 
values of the variables on line 30: N= number 
of entries and C = number of categories. The 
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TANDY TRS80, SYSTEM 80 


CLEAR statement on line 10 will need in- 
creasing for more string space. 

Suggested changes are: 

32 kilobytes RAM for 650 entries and 30 
categories: 

Line 10 CLS:CLEAR 14500 

Line 30 C = 30:N = 650:S = 200:SC = 50 

48 kilobytes RAM for 1100 entries and 50 
categories: 

Line 10 CLS:CLEAR 24500 

Line 30 C = 50:N= 1100:S = 200:SC = 50 

The other variables on line 30 may also be 
of interest: S = Initial scrolling speed; SC - 
Amount of orange to scrolling speed with 
each press of the S or F keys. 

The S and F keys are used to decrease 
and increase the scrolling speed while the in- 
formation is being listed. The display can also 
be temporarily stopped and re-started again. 

Of interest to anyone wishing to convert to 
another type of computer is the POKE 
16916,3 statement — the scroll protects the 
top three lines during listing. POKE 16916,0 
cancels the scroll protect. These statements 
will probably have their equivalent for other 
machines. 

The program will, in its present form, run 
on machines with or without line printers. 
However, anyone not having a printer could 
delete the printer references without making 
major changes to the program. 


es CHEQUE RECORDS 


2 

18 GASICEARS3O@ 

2@ DEF INTC,I 

3B Ca28tN=2381S=28815C#50 

40 DIM J6(C), PEIN), CIN). DIN), MO(N), TECN) 

5S@ HO=" PAYEE CHE @UE i AMOUNT DATE CATESORY* 

55 618="PAYEE CHE QUE AMOUNT DATE c 


68 Fee’y 4 eaane SSRensee. on % % “° 

% vente esdeacaes. a a % 
78 HiS=" PAYEE CHE QUE AMOUNT DATE® 
75 G3@~e° PAYEE CHE QUE AMOUNT 


8B Fiee"s % aqage 


eensecane. #6 x 
65 G4te"x % aaece 
x 


x 
99900000. 86 


68 TTe=° TOTAL = 88000000. 08° 

98 GOT0i1GG8 

208 PRINTIPRINTtPRINT“ WHILE LI8T I8 DISPLAYING YOU CAN..... *IPRINT* PRINT 
218 PRINTTAB(16)°PRESS °F’ FOR FASTER DISPLAY. °' PRINT 

22@ PRINTTAB(1@)"PRESS '8’ FOR SLOWER DISPLAY. ‘*1PRINT 

238 PRINTTAB(18)°PREGS ANY OTHER KEY TO CAUBE A TEMPORARY HALT.” 1PRINTTAB( 16)" TH 
EN PRESS AGAIN TO RESUME DISPLAY. °'IPRINT§PRINT! PRINT 

24@ PRINT" PRESS ANY KEY TO START DISPLAY. * 

242 RO=INKEYO! TF R8=** THEN242 

244 

238 RS@INKEYStIFRO=* S* ORRG@°F "ORRSH* * THENZ 7 REL SE 242 

278 IFR6="6°LETS=6+8C 

275 IFRE=*F°LETS=6-SC 

288 IFS<O@LETS=0 

285 FORO#1 TOS! NEXTOURE TURN 

38@ PRINTIPRINT*PREGS ANY KEY TO RETURN MENU.” 1GOTO242 

799 ° 

18e@6 ° MAIN MENU 


1081 ° 
1038 TT=OICLStPRINT@I9,°C HE @UE RE COR D B*°FORINTIPRINT’1) START NEW FI 
le.* 


1648 PRINT‘2) CONTINUE OLD FILE." 

1058 PRINT") LIST ALL.° 

1868 PRINT"4) LIST BY MONTH. °* 

1678 PRINT*S) LIST BY CATEGORY. ° 

1872 PRINT*°6) LOAD DATA FROM TAPE. ° 

1074 PRINT°7) RECORD DATA To TAPE.” 

1876 PRINT°S) CORRECTIONS. 

1068 PRINT°9) END PROGRAM. 

1898 Pee* *SPRINTIPRINT® ENTER oe BY NUMBER. °«PRINT“FOR PRINTER LIGTING - PRE 
gs 'P’ . 

1892 IFRO=° P* THENPS=RS t GOSUB2 

1108 CLELYOUAL (RO) CIRY<SORVSoTHENIO 

1162 IFY<3ORY>STHENI11@8 

1118 ONYGOT05688 , 6683, 2000, JB, 4080, 7080 , BBO8, 7000, 11278 

1128 CLEIPRINT@S29,°P ROGRAN F 1N 1 8 HE D*?tORINTIEPRINTEPRINTEPRINTEPRI 
NT TEND 
1999 ° 
2008 ° LIST ALL 


1.8 

2828 PRINTTABCI5S) "LISTING OF ALL CHEQUES" IPRINT 
2022 IF P@=*P* THENLPRINTTAB( 25) "LISTING OF ALL CHEQUES IL PRINT IL PRINTGIGILPRINT 
2025 PRINTHOEPRINT 
2826 POKE16916,3 
2038 FORI@=iTON 
2OAG IFPUTT Ve" Y aie 
20358 PRINTUSINGFSFPO(1),C(O1), DCT), MOC 1), TEC TD 
26351 IF P@="P* THENL PRINTUBINGG284PO(1),COT), OCF) mOCT) TOCT) 

eo 


2054 TleTT+D( J) 
2068 NEXT! 
2862 PRINTIPRINTUBINGTTS {TT OIFP@=" P* THENLPRINTILPRINTUSINGTTSITTILPRINTIULPRINTIL 
PRINT 
2079 GOSUBIOB «POKE 16916, @¢GOTO1838 
2999 


3880 ” LIST BY MONTH 

3081 ° 

3818 INPUT“ENTER MONTH FOR FILE SEARCH (e.¢. 87/62)" 148 

3828 GOSUB29O01CL 8S ¢PRINTHOIPRINT 

3821 POKE16916,3 

3038 IFPO="P* THENLPRINTTAB(25)°LI6T FOR MONTH °SM@ILPRINTISLPRINTGIO#L PRINT 
3048 FORI=1TON 

342 IF POC I) =° * THENIES2 

3858 1FMO<>RIGHTS (MO(1),5)T 

3O6@ PRINTUGINGFOIPO(I), COI), DCT) MOCTD, TOIT) 

3862 IF PQ@"P* THENLPRINTUSINGGZOIPE(E). CCI), DCT) OCT). TCT) 

3878 GOBUB25@ 

36735 TleTh+D(1) 

3068 NEXTI 

3OB2 PRINT IEPRINTUSINGTTSs TIF PO="P* THEN PRINT HL PRINTUGINGTT@ETI FL PRINT SLPRINTIL 
PRINT 

3898 GOGUB 3B! POKE 16916, 8160101838 


3999 

48600 ° LIST BY CATEGORY 
4081 ” 

4802 FORT@ITOCIIS( I) =** INEXT 
4003 El 


4006 IFPO( 1) =" * THENSB20 
4008 FORJ#1 TOE 
4018 IFUG( J) ©T6( 1) THENSBIB 


4812 NEKTJ 

4014 PRINTE, TOCT) (JO(E TOC I) IESE+1 

4816 GOBUB25S8 

4018 NEXTIOPRINT 

4028 INPUT°ENTER NUMBER OF CATEGORY FOR SEARCH’ (TIHTS=J6(T) 

483@ CL8'GOBUB208: 

4834 PRINTTAB(24)°LIBT FOR "A TOCPRINT | PORE 1693 6,3 

4835 1FP@=*P* THENLPRINTTAB(32)°L I18T FOR *TTOILPRINT (LPRINT6S60L PRINT 

4648- PRINTHIS 

48650 FORT@LTON 

4052 IFPO( 126°" THENSB92 

4068 1FTO<>TO( 3) THENSO9O 

4878 PRINTUSINGF 164P6(1),CCT), DCT), MOCT) 

4075 IFP@=°P* THEN PRINTUSINGGASIPO(1),C(1),D¢1), mec) 

4888 GOSUBZ50 

4065 TTeTT+D( 1) 

4898 NEXT! 

4292 PRINTIPRINTUBINGTTOITTIIFPQ="P* THENLPRINTILPRINTUBINGTTOITTILPRINTCLPRINT EL 
PRINT 

4198 POKE 16916, 81 GOBUBIGS!GOTO1GI8 

4999 ° 
3008 ' DATA ENTRY 

5001 ° 

3818 21 

SO28 FORI=ZTON 

3025 IF Z>NTHEN6G®4® 

5@38 PSC T)]**0PRINT°ENTER PAYEE NAME - “J TTFYCO@THENPRINT°OR JUBT CENTER) FOR RE 
TURN TO MENU® 


S@35 PRINT°MAX 6 CHAR)......0000200ee “LEINPUTPOCT) CIF PO( 1) 9° * THENSOTOEL SEPO(1)<¢. 
EF TO(PS(3),6) 

5O46 INPUTS CHEQUE NUMBER. 2.000... oo PAB ETTL SVACTRIGHTSIAB, 4) 97°" 

S@5@ INPUT°AMOUNT (IN @6)......-.0065 "sDC1) 

SQ68 INPUT‘DATE (e.g. 11/11/82)...... "MOC dd 

5878 INPUT’CATEGORY (MAX 5S CHAR)..... "STOCT1TOCL WLEFTOCTO(ID, 5) 


3073 IF Y=@THENRE TURN 
S@GS PRINTINEXTI 
S89@ PRINT1IGOTO1838 
s9979 ° 


6Q@@e ’* CONTINUE OLD FILE 

600i ” 

68186 FORZ#1 TON 

6820 IFP@(Z)=°" THENS®20 

68638 NEXT 

6840 CLBEIPRINTOS32,°O U T OF & TOR A G6 E"tFORT=1T01 COQ INEXTIGOTOIB3I0 
oVv79 ° 

13@@ ” LOAD DATA °¢ 

7e@1 ° 

7818 PRINTIPRINTIPRINTEPRINT* POSITION CABBETTE TO LOAD DATA..... "EPRINTEPRINTIPR 
INTEPRINTIPRINTCPRINTSPRINTOCPRINTTAB(14)°..... PRESS <ENTER> THEN 'PLAY' BUTTON O 


7828 PRINT@-1,° "tRO@INKEVO!IFROe*° THEN7O28 

7O38 CLSIPRINT* SEARCHING FOR CHEQUE RECORDS..... ‘. 

7048 INPUT@-1, AST IFAC<>* CHEQUE RECORDS® THEN7TO4® 

7856 CLEIPRINT"LOADING DATA BLOCK t- "qs INPUT@-1,x 

7868 LeINT(X/6) 60 TFL <>XTHENL #1 +6 

7865 FORT =6TOL BTEPSIEPRINTI/ 6} 

7O7@ ENPUT@-1, PCC 1-5),C( 1-3), DC 1-5), MOC 1-3), TOCE-3)  POCT-4),C( 1-4), D0 1-4), MO I-4 
dy TOCI—-4), POCI-3), COI-3) ,DCT—-3), MOC T- 3), TO 1-3), POC I-20, CC1-2), D(C 1-2) MOCI-2),78 


(1-2), POCT-1),CCI-1), DC1-1) MOC 3-1), TOCI~2),POCT), COT), DIT) MOCT), TCI) 

TOO NEXTIPRINTIPRINT(I-6)/461" BLOCKS OF DATA LOADED. *! PRINT! PRINT t GOBUBIOB! GOTO 
1838 

7999 * 

se6e ° RECORD DATA 


1° 
8818 FORIT=1TONIIF POC I )=° * THENX@1- 1 160TOBSI®8 
NEKT 


9838 PRINTIPRINT!IPRINTIPRINT*POBITION CASSETTE TO RECORD DATA..... "?PPRINTEPRINTE 
PRINTIPRINTEPRINTI PRINT? PRINT IPRINTTAB(16)°....- PRESS "REC’ & "PLAY’ BUT 

EN <ENTER>.* 

OB48 PRINTO-1, ROIRC=IMEVS! IF ROO” THENGESO 

8850 PRINT@é-1,°CHE@UVE RECORDS" 

08469 CLEIPRINT’RECORDING DATA BLOCK '- "4 

6878 PRINT@-1, X5FORI=1 TOSOBENEXT 

OBES L=INT(X/6) 461 TFL <OX THEN =£ +6 

BBIS FORT =STOLBTEPEIPRINTI/ 64 

8188 PRINTO-1, POC 1-9), CC1-3),DC 1-3) MOC T-3), TOCI-9), POC T-4),CC1-4),D¢1-4), MOCIT-4 
),16(1-4), POC E~3),CC1-3),DC1-3) MOC I-3), TOC 1-3), POC I-29, CCI-2), DC E-2), MCT -2),78 
(1-2), POCI-2),CC1-J),DCT-2), MOCT~t), TOCL-1),POCTI CCT), OCT) MOCTD, TOIT) 

8118 NEXT 

8440 PRINTIPRINT(I-6)/64" BLOCKE OF DATA RECORDED. * 1PRINTEPRINT 

8450 PRINT*PRESS °B’ FOR BACK-UP COPY. ANY OTHER KEY FOR MENU® 'GOBUB242 

8468 IF RS=* B* THENGSSOEL SE 1830 

B779 ° 

7888 * CORRE CT IONS 


9818 INPUT"ENTER CHEQUE NUMBER TO BE CORRECTED. *{AtPRINT 

9828 PRINT’ SEARCHING..... 

FE38 FORT@ITONSIFC( I) =ATHENSBAGEL BENE XTEPRINTIPRINT*NO @UCH CHEQUE ON FILE. "!IPRI 
NT 1 @OTO?8OO 


96408 (i. 8! G0SURBSOI8 
9@5@ PRINTCPRINT’ PRESS °C’ FOR MORE CORRECTIONS - ANY OTHER KEY FOR MENU* §GOBUB2 
JOtPRINT 


9O6H IFRO-" C* THENTO 1 BEL BE 18636 


Video Driver 


By David Morrison 

ONE PROBLEM with the Tandy TRS80's 
Model 1 lower-case unit is that it needs 
separate video driver for BASIC. To so. 
this, | have written a video driver in assembly 
language, making it possible to see the 
lower- and upper-case letters as they are 
being typed. 

In addition, the cursor character can be 
changed to anything and the screen can be 
only partly scrolled, leaving the top few lines 
unchanged, when listing a program. How- 
ever, in all other ways, the drivers act like the 
original in ROM. 


1000 ;*****MODIFIED VIDEO DRIVER#***** 


1010 7; 

1020 ORG 40.1 EH 

1930 DEFW DRIVER sNEW JUMP VECTOR 
1040; ; 

1050 ORG 7 FOOH 


1060 CURSOR DEFB 8FH 
1070 LINENO DEFB O8H 


;CURSOR CHARACTER 
;LINES NOT TO SCROLL 


1080 -DRIVER LD ‘L,(1X+03) 

1090 LD H,(1X+04) ;HL=CURSOR POSITION 

1100 JP C,O49AH 

1110 LD A,(1X+05) ;A=COVERED CHARACTER 

1120 OR A , 

1130 JR Z,OFF1 ;GO IF CURSOR IS OFF 

1140 LD (HL) ,A’ ;RESTORE COVEKED CHAR 

1150 OFF! LD A,C 3;A=ASCII CHARACTER , 

1160 cP OH 

1170 JR » C,CONTRL ;GO IF A CONTROL CHAn 

1120 uP BOH te 

1190 JR NC, GRPHIC ;GO IF TABS On GRAPHICS 

1200 cr 60H aly 

1210 JR C,bIS ;GO IF UPPER CASE 

Vee'O LD ba 

1230 uD (HL) ,A ‘ 

1240 LD A, (HL) 

1250 cP D ;CHECK LF LOWRx CASE CN 

1260 Jk Z,L1S ;GO IF LOWE CASE IS ON 

1270 LD A,D . 
- 1280 SUB 20H ;MAKE UPPLRK CASE 

1290 DIS CALL DISFPLY ;DISPLAY CHARACTinx IN A 


1300 LD A,H 

1310 AND 03H 

1320 OR 3CH 

1330 LD H,A 

1340 LD D,(HL) ;D=CHAR THAT IS COVEKEB 
1350 LD A,(IX+05) 

1360 OR A 

1370 JR Z,OFF2 ,GO IF CURSOR IS OFF 
1380 LD (1X+05),D ;STORE COVERED CHARACTERS 
1390 LD A,( CURSOR) . ;A=CURSOR CHARACTER 

1400 LD (HL),A ;DISPLAY CURSOR 

1410 OFF2 LD (1X+03) ,L 

1420 LD (1X+04) ,H ;STORE CURSOR POSITION 
1430 LD A,C 

1440 RET 

1450 ; . 

1460 CONTRL LD DE, DIS+03 

1470 PUSH DE ;PUSH RETURN ADDRESS 
1480 cP OAH 

1490 JR C,CNTRI 

1500 CP OEH 

1510 JR NC,CNTRi 

1520 LD A,L ;CHAR IS A CARRIGE RETURN 
1530 AND OCOH 

1540 LD L,A 

1550 PUSH = HL ;SAVE NEW CURSOR POSITION 
1560 LD DE, 40H 

1570 ADD HL, DE ;CURSOR POSTION TO NEXT LINE 
1580 LD A,H 

1590 cP 40H 

1600 JR Z,SCROLL ;IF OVERFLOW THEN SCROLL 
1610 JP 0572H ;CONTINUE IN ROM 

ia CNTR1 JP O50 AH ;CONTINUE IN ROM 

1 ; 

1640 GRPHIC CP OCOH 

1650 JR c,DIS ;GO IF GRAPHICS 

1660 SUB OCOH ;A=NO. OF SPACES IN TAB 
1670 JR 2,DIS+03 ;GO IF A=0O 

16° LD B,A 

re OP) LD A,20H SAS! 

17 CALL DISPLY ;DISPLAY "" 

171 DJNZ LOOP! 

1720 JR. DIS+03 

1730); 

1740 DISPLY LD (HL) ,A ;DISPLAY CHARACTER 

1750 INC HL 

1760 - LD A,(403DH) 

1770 AND O8H ;CHECK IF IN 32 OR 64 CHAR 
1780 JR Z,ONWARD ;GO IF 64CHAR MODE 

1790 INC HL 

1800 ONWARD LD A,H 

1810 cP 40H 

1820 RET NZ ;RETURN IF NO OVERFLOW 
1830 LD DE,OFFCOH ; DE=-4OH 

1840 ADD HL,DE ;MOVE CURSOR UP ONE LINE 
1850 PUSH HL ;SAVE CURSOR POSITION 
1860 SCROLL PUSH BC SAVE BC 

1890 LD A, (LINENO) 

1900 INC A 

1910 : LD HL, 3BCOH 

192 LD DE,40OH 

1930 .LOOP2 ADD HL, DE ;HL=3COOH+A*4OH 

1940 DEC A - 

1950 JR NZ,LOOP2 ; 

1960 PUSH HL ;SAVE DESTINATION 

1970 ADD H},LE ;HL=SOURCE OF SCROLL 
19380 POP DE ;DE=DESTINATION OF SCROLL 
1990 XOR A 

200% SUB L 

€010 LD C,A 

2020 LD A,4OH 

2030 SBC A,H 

2040 LD B,A ;BC=NO. OF BYTES TO MOVE 
2050 LDIR ;SCROLL SCREEN 

2060 POP BC 

2070 EX DE,HL 

2080 JP 57 DH ;CONTINUE IN ROM 

2090 

2100 END O6CCH ;BASIC ENTRY POINT 


Space Target 


B’ “eter Endean 

S. JE TARGET is a real time, arcade-style 
game, including sound plus a music score 
from a popular movie. The sound routine is 
poked into the program in lines 40-70, and 
is produced by the USR call. 

Line 50 sets the memory size so that you 
don't have to remember to put it in before you 
load the program. The game revolves around 
the PEEK (14400) command for the control- 
ling of movement. You use the four arrow 
keys and the space bar for movement and 
for firing your laser weapon. 

As the game progresses, you have a time 
limit to kill the enemy or be killed yourself. 
The data in lines 10000 onwards is for the 
music score at the beginning of the program. 
For the TRS80 owners, delete the 
OUT254,255 in line 10 if you want to hear 
sound. 


@ ° SPACE TARGET SIMULATOR - Br P.ENDEAN 

3 CLEAR3I@08 

18 CLS: RANDOM 0UT254, 2355 

30 FOKE16S2E. 224 POKELES27.127 

31 M@32736 

40 FORR@Q@T027 READB POKEN+A,6 NEXT 

3@ POKE16361.22@ IFPEEK( 16396 9281 THENPOKE 16562, L27ELSEPOKE 16562, 191 

76 OATAZ®S. 127.18.22,0,62.6.211. 255 66.246. 8.246.0.16.258.238. 1 254 .6.32, 241,43. 
124,181,32.234. 201 

735 DATA 26, 29,32 

BO DIMRE 10) REC Bde" HHNRNORNANH REC 1>e" TRAINEE PILOT” R8¢Z>e" ENSIGN 

R80 38" LIEUTENANT “- REC 4.8" CAPTAIN “RECS 58" ~ROMTRAL - 

98 DIMSSC 10>: SEC 8 OCHREC 126 0+CHREC 160 1+CHRE 162 J+CHRS< 160 +CHRS< 128) SC 1 Se CHR EC 
128 *+CHREC 148 4CHRS* 188 +CHREC 187 1+CHRSC 179 +CHRE<C 131 >+CHRB( 128) SBC 2 ®CHREC 194) 
+CHRSC 173 +CHREC 144: SBC 3 DBCHREC 157 >+CHRS<C 174 > 

95 ASC BDe"SHOTS FIRED" ASC 1 >e"KILLS " ASC 2>—" CIREETION INDICATOR ° ASC 3 >="GRADE 


‘ASC Oe" TIME” 
18@ TSMCHREC 149 >4CHRE. 191 ¢CHREC 148 
1835 Ces" 
518 L8C@ STRINGS 63,176): LOC 1 @BTRINGS 22, 176 + CHR&< 191 2+ STRINGS 17, 176 >+CHRSC 1 
91 +STRINGSC 22,176) L€C2 STRINGS. 63.131) 
120 HSC @ =CHREC 131 +CHRE< 148 + CHRE. 176 >: HSC 1 STRINGS. 4.131 > KSC 2 De CHREC 176 D+CHR 
$C 14@ 4+CHREC 131> HCB@eSTRINGEC 4,128) 
308 GOTOsees 
SQ@ CLS: PRINT@O-L 862): -PRINTO704,1 86195 ‘-PRINT@77Q. A864); ‘PRINTR789, AKC 2)) PRINT® 
016, ASC 3);  PRINT@O34,A8( 8); PRINT@968,L8¢ 0). -PRINT@B9B. ASC 1), PRINT@RSA,. R86 8d, 
6@@ FORY#3671047 SETC 48.) SETC86,Y >: NEXTY 
618 FORY#@7TN47  SETC@.Y> SETC 1.) SETC 127, 7) BETC126,Y) NEXTY 
997 REM 
998 GOSUB1 2008 GOSUB1 3080 
999 POKE32748, 58 
180@ PRINT@QQ,C$) 
1808S PRINT@35@, Ts; 
1108 D=PEEK< 14480 > 
1118 IFDe@THENQQ=Q0+64  PRINT@J, HCE; i863: PRINTQI, CHRE< 191 >) 
1115 IFD@4@THENQQ@QQ+ES PRINT@J-HC#;i Je@S9' PRINTAI, HEC >) 
1128 IFD@e16THENQQ=Q0-64 :- PRINT@J,HCS) e927: PRINTRI, CHREC 191 >; 
1125 1FD=72THENQQ©QQ+63 PRINT@I. HCE; ' Je863: PRINTRS, HSC 2); 
113@ IFDe32THENQQ#QQ+1 :PRINT@J,HC$) ‘J#923 :PRINTQJ, HC 1: 
1135 I1FO@4B8THENQQ#GQ-63 PRINT@I, HOS;  Je923: PRINTQI, H#C 2) 
1140 IFD=64THENGQ=Q0-1 PRINT@I HCS; 9927: PRINT@I HSC 1; 
1148 IFDe@@THENQQ#Q0-65 PRINT@I. HOS;  J=929: PRINTQJ, HEC 8) 
115@ IFD#126THENIOSO 
148@ TeT+. 25> PRINTR779. INTC Ti IFT 1 OOTHENISOGS 
1580 NeN+1: IFNeSOTHEN1 4008 
1600 GeRNOC 4): IFGe1 THENQO#0N+1 ELSE IFGe2THENQQ*Q0+64EL SEIFG=3THENQQ#QQ-64ELSE IFG 
@4THENQQ2QQ-1 
18@@ 1FQQ<64THEN2@@80 
161@ IFQQ>64OTHEN2Z@@028 
2080 PRINTAQQ, 8 S8-1); 
2010 I1FPOS< 8 >< 1BORPOSK @ > >GQTHENPRINT@OQQ. C8; GOTO99B8 
25@@ FORTT#1 T0300: NEXT 
2688 KX=USRC 160 
2780 IFKet THENPRINT@SGS. REC 1) - vel 
2718 IFKeSTHENPRINTROGS, REC 2>) Ve? 
2728 I1FKe12THENPRINT@OBO RECS): Ved 
2738 IFKS16THENPRINT@S8@. R864); Vad 
2740 IFK@2OTHENPRINT@68O, RECS), Ved 
3802 GOTO1888 
3835@ POKES2740, 20 
306@ PRINT@QQ, S#¢ SS-1 >, 
310@ FORYs32TO16STEP-1 SET 77-7. >): SETC 4847.7): &XmUSR( 68) NEXTY 
3120 FORY=32TO1ESTEP-1 RESETS 77-Y .Y > RESETC 4847.7): NEXTY 
3208 SFeSF+i PRINT@G4E,SF; TeaT+.§ 
330@ 1FQQ>=347THEN3S33@ELSE3499 
3338 TFQQ< 0351 THEN3S@0 
3499 GOTOSS9 
350@ RESTORE : FORK=1TO28. READX1 NEXT FORLL#320TOLEZSTEP-64 : RERDX 
3510 FORWWa32TOXSTEP-1 EEsRNDC 63> EESeCHRS( FE+1 28> 
3320 PRINTOLL+WW. EES. PRINTRLL-WW+64. EES: 
3528 POKE32748. 200+RND< 5@ >: XX@USRC 28D 
3530 NEXTWW.LL 
3600 CLE#STRINGS. 15.128) PRINTR345.CL 8; PRINTR281 CLS, :-PRINT@217,.CL8i 
3680 KekK+! -PRINT@9G4.K)  TeT+.3 
3980 N=#@ 5 
3999 GOTOSS98 
4880 CLS 
4018 PRINTCHRS( 23>: PRINT®78.°** SPACE TRRGET SIMULATOR xx" 
4820 PRINT@7Q4,"PRESS ‘AR’ TO FLAY OR ’B’ FOR INSTRUCTIONS " 
4999 RESTORE FORK#1T035 READK1 NEXT Red 
S@00 SP=.5 OUT254, 16 
5@@3S REAOPI: IFPI s@THEN1 100@ 
S@1Q POKES2748.P1 READPE  xxXeLISR* PE “SP > 
5020 ASSINKEYS: IFASe" “THENSAQD 
5@320 IFAS="A" THENS@a 
5040 IFAS=#"B"THENII@OS 7 
68a@ GOTOSees 
180@8@ DATA 225.36.225. 36,.223.36.168.98.112.146.1235.65.133.61.149,55,63,95.112.73 
,125,65.139,.61,149,95.83.199,.112.73.125.63.133.61,125.65, 149.118.2235, 36.225.18 
10@18 DATA /168,96.112.146.125.65.139.61.149.5%.89.195.112.73,125,65,.133.61.149,5 
$,03.193.112,73.123.69.133.61.125.68:.149,118,225.36 
18820 DATA 223,18,280 60.200.60 125.33.139.31.149.28.168.24, 168,49,149.55, 133.61 
1149,55. 288, 20,178.46.225.36 225.18.200.60.708.60.125.393 133.31.149.28.112.73.14 
3.28,145, 28,225.36 
$8030 DATA 225.18.200.60.200.6€0.12%.33.139.31.149.28.1€8.24. 168.499. 149,59.133,61 
149,55.200,20,178.46.225. 36.112.36.03.98.94.87.78.58.149,55, 168.24. 112,219,149. 
5S.149,28 
18@4@ DATR 22%.36.168.98,112.146.129.65.199.61.149.55.89 9$.112.73.125.65.133.61 
(149.5% .@3.19% 112.734.125.653 133.61.12%.63.149,118.22%5.36.225.18 
1@@5@ DATAI6A, 99.112,.146.125.65.133.61.149,55.A3.19%.112.79.128.65.133.61.149,55 
83.195.112.73,125 .6%3.133.61-125,.65.149.118. 22%.36.0 
11800 REM INTSTRUCTIONS 
110@8 CLs 
11@1@ PRINT” YOU HAVE BEEN CONSCRIPTED INTO THE EMPIRES ARMY" 
11828 PRINT" AS A CADET /OlU MUST TRAIN TO BE R FILOT ON A” 
1163@ PRINT” TIE FIGHTER SPACE SIMULATOR . CESTROYING ” 
11942 PRINT” POSSIBLE ENEMIES OF THE EMPEROR “ 
11@3@ PRINT” YOU WILL BE RANKED ACCORDING TO THE STANDARD ” 
1186@ PRINT’ OF THE PILOTING OF YOUR CRAFT 
1187@ PRINT PRINT PRINT” ** = =6TO MANEUVER USE THE FOUR ARROW KEYS ” 
11@6@ PRINT" ¥¥ TO SHOT PRESS THE SPACE BAR " 
211092 PRINT: PRINT’ REMEMBER THAT I7 [9 YOU WHO TS MOVING IN THE DIRECTION YOU HA 
VE CHOSEN AND NOT THE ORJECT ” 
1118@ PRINT: PRINT” 
11908 FORCC=1TO208@ NEXTCC 
11999 GOTOSe8e 
12088 QG@RND¢ $76 +64: RETURN 
1380@ SS*#RND<C 4 > RETURN 
1406@ NOSRSTRINGS< 63, 1 28+RNDX 64> 
14818 FORV]1TO2S PRINTNDS **USR( SQ > NEXT 
14108 CLS 
142@8 PRINTCHRE( 23); " TO SLOW I’M AFRAID " 
14218 PRINT:PRINT: PRINT" YOU HAVE BEEN BLOWN TO ATOMS FROM ENEMY FIRE 
14988 END 
1300@ CLS: SCe2BexvaK-SF PRINT" YOUR TOTAL SCORE WAS "; SC SC#1990-SC 
15018 IFSC>S@@THENPRINT" THIS IS A PATHETIC STANDARD FOR A PILOT IN THE EMPIRE” 
“PRINT " YOUR DISHONORABLY OISCHARGED FOR THE SERVICE" 
15020 IFSCS@Q@THEN PRINT" NOT VERY GOOD : COULD BO BETTER ° PRINT" YOU HAVE T 
HE RANK OF "i; R8Ct))" AND WILL START A YEARS COURSE IN PILOTING IMMEDIATLY " 
158630 IFSC>SO@THENPRINT PRINT" *# RANK ¥X "J REC2) PRINT" A LITTLE MORE PRACTICE 
TS NEEDED " 
15848 IFSC>2Z@BTHENPRINT PRINT" %& RANK &# "J REC3) PRINT” VERY GOOD " 
15850 IFSC>20 THENPRINT PRINT" %*& RANK ## ". R864) PRINT" AN EXCELLENT PERFORMRNC 
— - SIR! “ Soa! 
15@6@ IFSC<2QTHENPRINT PRINT” ¥e RANK ## "; RBCS) PRINT " SO YOU THINK YOUR AN AD 
MIRAL - TRYING TO TAKE MY POSTION . CHEATS ARE SHOT AT DAWN ” 
19999 END 
28@@@ PRINT@21Q." ENEMY CRAFT HAS STARGATED “: FORVe1TO1@@@ NEXT PRINTR21Q. " 


wee LET THE FORCE BE WITH YOU xxx" 


20018. GOTO998 


Poker 


By Kim Henkel 

THE PROGRAM Poker is for a Model 1 
TRS80, so it should also work with a System 
80. However, because of the placement of 
the sound routine, | doubt that it will work un- 
changed on a Model 3. The sound routine is 
poked into reserved RAM between 16446 
and 16474, and you therefore do not need re- 
serve memory. 

The program is based on the usual poker- 
machine concept. It can be expanded by add- 
ing strings after line 116 and re-dimensioning 
the RND statements in line 190. 


REM SF Ob OR A tt be dott tS bb 
REM » ONE -ARMED BANDIT + 

~ REM + ro. O-RENKEL + 

7 REM + 19e5 ‘ 

4 REM APPEALED HEHE EAH Dew ee ETE 

5 GOSUREOA 

1@ CLSICLERR1OQ@: DEE START FANDOM: GOoUer wean 

to M=1@ 


1G MMS= "HR HHO 

15 S®=STRINGS: &, 24) 

16 TS=CHRE¢176)+CHRE6 190) +STRINGS. 56.1913 Egy SCE 1763 

17 LS=CHR$(191>+STRINGSC(SS, 152) 4+CHRSECIGIO: 
MS=CHRSCILSLIFSTRINGS (SP. TCR eTURe Tar 

1E  GOSUBTOZ 

28 BS=STRINGE(S, 128) +CHRE( TE 4+584S5) RINGS OS, 1 OED 


appiclic 


e AUTHORISED DEALER AND 
SERVICE CENTRE. 

e ALL PERIPHERALS AND 
SOFTWARE. 

© WE'LL MATCH MOST PRICES. 


KAYPRO 


e ALL THE FREE SOFTWARE 
CUSTOM DEVELOPMENT 
AVAILABLE IF REQUIRED 


° HUGE RANGE OF SOFTWARE, 
EXPANSION UNITS AND 
PERIPHERALS. 

@ WE CAN AND WILL 
DEMONSTRATE ITEMS 

® WE KNOW WHAT WE SELL — 
AND SUPPORT IT. 


COMPUTERS 


=elele 


Send for free catalogue of educational and 
games software 


14 Young Street, 
FRANKSTON, VIC 3199 
Tel: (03) 781-4244 


NAME ............ eee 
ADDRESS ..... 


STATE cocccccccssssssssssesesee POSTCODE.......... 


38 REM + » GRAPHIC STRINGS + + 
91 


108 C11) =CHRS (160) +CHRS( 164) +CHRS1 191) +CHREC 180) +CHRS( 146) +CHRE: 
26) +S$+CHRS$( 179) +CHRS( 142) +CHRS( 191 )+CHRS(143) +CHREC 125) 

1B2 Ce 2) =CHRS$C 198) +CHRS¢ 179) +CHRSt 147) +CHRSC 179) +CHRSC 159) +CHRE 
26) +S8$+CHRS$t 179) +CHRE (162) +CHRS( 179) +CHRS! 185) +CHRSI 175) 

194 C(2)=CHRE (6164) +CHRSC 19B) +CHRS( 178)+CHRS( 156) +CHRS! 168) +CHRE! 
26) +S$+CHRS$¢ 139) +CHRS$ 6175) +CHRS( 191 9+CHRS 6159) +CHRSC 17S) 

106 C(4)=CHRS$C1 TE) +CHRS( 140) +CHRS( 162) +CHRS(1 71) +CHRS( 12799+CHRSC 
26)+S$+CHR$( 186) +CHRS (198) +CHRS¢C 128)+CHR$C 169) +CHRS$(188> 

108 C(S)=CHR$(128) +CHRS$¢ 176) +CHRS( 191) +CHRS(177) +CHRS¢ 126) +CHRSE 
26) +S$+CHRS( 176) +CHRS$ 6176) +CHRS( 191 )+CHRS(176) +CHREC 122) 

110 ClG)=CHR$(1 26) +CHR$ C128) +CHRS¢ 168) +CHRSC1S7)+CHREC187)4+CHRS¢ 
26)+S$+CHR$( 162)+CHRS( 167) +CHRS$ (129) +CHRS( 126 9+CHRSO 128) 

112 C7) =CHRE$¢( 142) +CHR$C 167) +CHRSO179)+CHRE! 187%) +CHRS 142) +CHRSC 
26)+S%+CHR$¢ 198) +CHRS¢ 169 9+CHRS$¢ LES) +CHR$ (187) +CHRSC 189) 

114 Ct 8) =CHR$( 148) +CHRS( 179) +CHRS (140) +CHRS( 1 799 +CHRSC 148) +CHRS¢ 
26)+S5%$+CHRS¢179)+CHRS¢ 140) +CHRS( 179)+CHRE! 140) +CHR$( 179) 

116 CC9)=CHR$¢ 1529 +CHRS$O 171) +CHREO 151 9+CHRSC1 31) +CHRS( 164) +CHREC 
26)+S5$+CHRS6 175) +CHRS$¢ 191 1 +CHRS(191)+CHRS¢191 9 +CHREO 159) 

131 GOSUBE8S 

168 PRINTASSE, STRINGS( 20, 179)+CHRS61E7)+"PRESS *°9" TO STOP"+CHRE 
(178) +STRINGS(13, 179)3 

18@ GOSUBS90 

169 GOSUBS1@: PRINTA7, STRINGS( EO, 129) 5 

13@ Z=RND( 9): X=RND C9) > V=RNDCQ) 

2QQ PRINTAZI, COZ) + SS=USREF1 2O+S"V) s PRINTAG14G, COX) § SSeUSRI2120+5 
*V)SPRINTAG34,C¢€V) 5 :S=USRET120+54"V) 

202 AS=INKEYS$: IFAS="2" THENZZO 

286 PRINTOZ94, BS}: PRINTAG14, BSs ¢PRINTQ4S4, BS3 

210 GOTO190 

S20 IF Z=X AND Z=V THEN 22@ ELSE IF Z=xX OR Z=V OR V=X THEN 250 
ELSE 255 

226 REM + * THREE OF A KIND * * 

238 PRINTAZS, "B I N G O" 32 FORO=1TO2: PRINTA294, B$3 : PRINTAGIG, BS;3: 
PRINTA4G24, BS; <FORS=390TOZEQ@STEP-10:S=USR(S) sNEXTS:FORS=260TO280: 
S*USR(S) =NEXTS: PRINT@T94,C007)3 SPRINT@G14, COX) 3 SPRINTGGZ4,COVI5 SF 
ORS=29OTOZEQSTEP-10:S=USR(S) =NEXTS:FORS=2E0TO7E@: S=USR¢(S) :NEXTS 
231 NEXTO:M=M+20: GOTOZES 

243 REM * » ONE PAIR » » 

249 ”’ : 

25@ PRINTAES7," ONE PAI R “S$ SM=M+2:FORT=1TO3:2S=USR( 9008) :N 
EXTT :FORD=1 702: PRINTA294, BS; > PRINTQ414. BS; :PRINTQ4G24, BS; :S2USRiS 
120) =PRINTAZ94, CZ) 3: S=USR6Z*104+41 00) 

252 PRINT@414, COX) §sS=USREX*10+4108) s PRINTAS24,C¢6V) § 2S=USRIVH1O+ 
410@) = PRINTA4T4, BS; =:PRINTAG14, BS; SPRINT OSG, BS; :NEXTD: GOTO2ZE@ 
255 PRINT@SS7," NOTHING “S2M=M-.5 IF M=@ THEN 672 

268 PRINTA72Z4, "$"5 1PRINTUSINGMM$; M3 : FORT= 4120TO415@STEPS: S=USR«T 
dENEXT:GOTOIS1 

208 FORY=15TOZE:SETCE, Y) :SETCS, Y):SETC4%, Y) SSET(46,Y) :SET*ES, YY): 
SET(86, Y) SSETCIZ2, VY) sSET CLES, ¥) INEXT 

3Q1 FORX=STOL23:2SETCK, 15) tNEXT 

202 PRINTAS73, CHRS$(191)35STRINGS( SE, 167): CHRS(191)3 

203 PRINTAEGZ, LS3 ? PRINTO707,M$3 s PRINTA771,L%3 :PRINT@ESS, MSs PRIN 
TaES9, LS: 

704 PRINTASIE2, CHR$(191)+STRINGSCSE, 1622 +CHRS( 19193 

385 PRINTA7OE, STRINGSC 18, 179)+CHRSC1E7) +" $$$"+STRINGS( SE, S234"S 
$& “+CHRS$( 178) +STRINGS$( 18, 17975 

7Q7 PRINTAZEA, T$s : RETURN 

SOQ FORY=7TO1E:SET(126,Y) <SETCIE7, ¥) tNEXT 

S@z2 SET(124,18):SETC125, 18) 

5@4 FORT=1TO2@Q@:NEXTT: RETURN 

S10 FORY=77TO17:FORT=1 TO1Q: RESETC1ZE, Y) RESET C127, Y) :S=USROZZDIIN 
EXTyY 


tNEXTY 

55@ RETURN 

EQ@ PRINT@7, "PRESS : (> TQ QUIT (&) TO BEGIN 

61@ :S=USR‘1001): OS=INKEY$: IFOS="Q" THENGES@ELSE IFOS$="B" THEMRETUR 

NELSEG1@ 

£50 PRINTO@, STRINGS(E4,128)3 
_ 652 PRINT@IS: “YOU MADE A LOSS OF $"3 

OVERALL. “3: PRINT; 7 END 

EQ PRINTAIS, "you MADE A TOTAL OF $" 


7IF M-1@) @THENEGS 
= PRINTUSINGMMS: 10-Mi: PRINT" 


: PRINTUSINGMMS; M-1@5 =: PRINT" 
PROFIT. SPRINT END 

678 PRINTA@LS: “SORRY, BUT YOU ARE BROKE...."?PRINTSEND 

SOQ CLS: PRINT: PRINT: PRINTTARCZOIS"S $ JACK POT $ $" 

10 PRINT: PRINT: PRINTTAB! 24) 3" INSTRUCTIONS: "2 PRINT: PRINT? PRINT" 

THIS POKER - MACHINE COSTS FIFTY CENTS & GO. ANY PAIR": PRIN 

TT" WINS TWO DOLLARS. THREE OF A KIND WINS TWENTY DOLLARS. ": 

PRINTTABCES) 3"GOOD LUCK '"$ 

628 PRINTAIBZ, "PRESS ANY KEY 3-5 

820 IF INKEY$="" THENGZQELSERE TURN 

S900@@ REM + * SOUND ROUTINE + + 

E8600 FORS=1644— TO 16474 : READD = 
*POKE16527,.64:DATA 2@5, 127, 1B, 62.1,14,0, 257,91,61, 64, 69.47, 27.8, > 


POKES, D = NEXT: POKE1ES=6,62 


Mastermind 


By Tony Hinde 

YOU USE the standard rules of the Master- 
mind board game for this program. No col- 
ours can be repeated, and the code at the 
end is set out at random, not in order. 


18 CLS‘ CLEAR1O@8 
RANDOM 


40 PRINT" THIS GAME IS THE COMPUTERISED VERSION OF MASTER MIND" 
7@ PRINT"! HOPE YOU ENJOY IT." 

108 PRINT PRINT"HIT ANY KEY TO CONTINUE....... . 

130 IFPEEK( 15359 ©@THENI 36 

168-CLS:PRINT" YOU HAVE A SELECTION od EIGHT COLOURS, “ 

198 PRINT" R FOR RED, Y FOR YELLOW, G FOR GREEN, B FOR BLUE” 

220 PRINT” O FOR ORANGE, W FOR WHITE, P FOR PINK AND S FOR SILVER." 
258 PRINT: PRINT"YOU MUST GUESS THE COMBINATION OF FIVE COLOURS THAT “ 
268 PRINT" THE COMPUTER HRS SELECTED. YOU HAVE 18 ATTEMPTS.” 

318 PRINT" “CHR 143)" MEANS RIGHT COLOUR RIGHT SQUARE. “ 


@ v=9 
34 PRINT” “CHR®( 134)" MEANS RIGHT COLOUR WRONG SQUARE. * 


358 PRINT" TO CORRECT ee COMBINATION YOUR WRITING PRESS THE" 

368 PRINT’BACK ARROW K' 

378 PRINT: PRINTHIT ft vey TO PLAY..... - 

480 IFPEEK( 15359 =O THEN48@ 

418 KSC 1 8" R" KBE 2 en" KC 3 eG" KB 4 eB" KSC S pe" 0" KOC 6 "WW" KBE 7 De "P" KCB De 


s 

415 FORO#1T0S 

420 NeRNOC 8): IFKBCN 8"H" THEN4S28 - 

423 C80 >=KSC ND: KSC ND@"H" 

430 NEXT 

468 CLS 

668 PRINT"’R’ oy? *G’ *B’ ‘0 , *hl’ *p’ ‘s’" 

620 PRINT: PRINT” YOUR COLOURS ae 

621 FORX#=48T077 : SETC X, 16): SETCX, 42): NEXT 

622 iii Y >: SETC 77, >: NEXT 

623 PRINT@192," 

63@ PRINT: PRINT" : IFV®STHENPR INTCHREX 24 

631 PRINTCHRSC 24 DCHRE& 149); : FORK=1 TOS: PRINTCHRE 176 SSTRING& 2,128): NEXT: PRINTCH 
RS 176 DCHRE 178 STRINGK 14,24); 

633 FORU=1TOS 

648 PS*INKEYS: [FPS="" THENG4@EL SE IFASC( PS SBANDU>1 THENPRINTSTRING& 3, 6 CHRE 1760 
MRE 24); -UsU-1 ' GOTO648ELSE IFPS="R"ORPS="Y"ORPS="C“ORPS="B“ORPB="O°ORPS=“W"ORPSS” 
P"ORPS="S" THENGESEL SEGOTNE4O 

668 PRINTP@" °; :PSCU)=P®: NEXT 

68@ PRINTSTRINGS& 2, 24 CHREK 178 >" 

788 FORI#1TOS 

720 FORW#1TOS 


+ 740 LFPSC I =C8( WAND] @NTHENLC I #143: KeK+i : GOTO7BRELSE IFPS 1 =C8C WOANDCSC WX PSC H 
SEM=8 


)THENGOSUB2 308 : IFME@THENL( I = 134: GOTO76GEL' 

768 NEXTW 

778 LCI #128 

788 NE.ATI 

781 FORX®1T018 - QeRNOX 5S >: RERNDK 5: DeLC@>:LCQ LCA) LCA SD NEXT 
782 FORK=1 TOS: PRINTCHRECLOX))° “) «NEXT 

798 YaV+1 

880 IFK#STHENK=@:GOTO2088 


ME 
816 IFPEEKC 15959 *0THENBIGELSECLS PRINT: print: PRINT : GOTO2846 
828 GOTO632 


Cc. 
ib al aa alls OT ee ee helen NS" 
2820 PRINT" You BEAT THE CD AUR TE Ree 
2038 PRINT” IN ONLY “¥" GOES." 
2042 PRINT: PRINT"WOULD YOU LIKE TO PLAY AGA 
2050 282 INKEYS: IFZ@=" “THENZOSGEL SE IFZ82"Y" THENIG8ELSEIFZ0=" N° THENENDEL SEGOTO2098 


2298 END 

2308 DaO+1 : IFO>1-1THEN2325 

2318 LFPSC I =P8<¢ D DTHENMEAS 

2315 IFCSC W=PRK W OTHENM#S : DeD+1 - GOTO2325 
2328 GOTO2388 

2325 IF1=1ANOD#=1THENGOTO231 SELSED=8 


1179, 2115255, 17, GB, 4, 16, 246, 24. 242, 7, 3S, 241, 2O1 t RETURN 2338 RETURN 
s s @ 
isk File Fix ; 


By J. L. Elkhorne 
SOMETIMES, an erroneous disk-directory 
listing is the fault of one operator — but the 
APF microcomputer can provide a myriad of 
gremlins to plague a person! 

If you can’t remove a file to get’rid of clutter 
on a disk, the hard way is to sequentially run- 
and-save the good ones on another disk and 


re-initialise the offender. However, as that’s 
not very elegant, | developed the technique 


described here. 
1. Reset system 
2. Enter 10 SAVE “aaaaaaa”K 
3. Enter DIR 
4. CALL. 28672 
5. Enter D A300 
A300 is the system buffer. Once DIR is 
done, each file is described in a 16-byte 


va 


98 


block. Format is seven characters, followed 
by: 

20 Delimiter 

nn 

nn 

nn Type of file 

6. Note data for the seven-character name 
pertinent to the file you wish to delete. 

7. Do M A406 and replace R’s (41) with data 
exactly. 

8. Do G 8894 to take you back to BASIC. 

9. Run, then DIR to ascertain that file is truly 


gone. CO 


OSBORNE 


Modified CP/M 


By Nigel Harwood 


ON BOOT-UP of my Osborne 1 computer, it 
automatically executes a program called AU- 
TOST.COM, which enables any program or 
function to be automatically started. 

This is very useful, but not always desira- 
ble. However, when | decided that it wasn't 
wanted for a particular disk, | ran into some 
problems. You see, nowhere in the manual 
does it mention how to disengage the AUTO- 
ST facility. 

| tried simply deleting the program AUTO- 
ST.COM, but then CP/M booted up with the 
message “AUTOST?” which, to ~™>. 
looked very poor. 

The answer | found was in slightly chang- 
ing the CP/M itself. Execute SYSGEN, to the 
source-drive prompt, enter A. To the destina- 
tion-drive prompt, enter RETURN. This will 
then have read in the CP/M system and left 
it in’ memory. Now, enter SAVE 35 


‘CPM.COM, which will save the first 35 pages 


of memory; these contain the CP/M system. 
Next, execute DDT CPM.COM, then in 


DDT enter D2008. You should now see: 


2008 E5 01 07 41 55 54 4F 53... AUTOS 
2010 54 20 30 31 32 33 34 35 T 012345 


Now, enter S2008 and then the following: 
RETURN, RETURN, 00,20,20,20,20,20, end- 
ing by entering a fullstop and new line. Next, 
enter Control-C to get back to the CP/M 
operating system. 

You have now modified the CP/M system 

- it was read into memory when you entered 
DDT, and it is still there now. 

Execute SYSGEN again, answer RETL 
to the source-drive prompt, because you wish 
to use the CP/M that you have modified in 
memory. To the destination-drive prompt, 
enter A. | 

When the disk light has gone out, press the 
reset button to reboot the system. After hitting 
RETURN to the boot-up prompt, the im- 
proved sign-on should greet you on a cleared 
screen. C] 


“LOOKS LIKE SOMEBODY FORGOT TO TAL 7H enna 
ABOvT OUR NEW ELECTRONIC SECURITY SYSTEM... 


The Micro Decision is a_ professional, 
CP/M® based computer system that comes 
with the hardware and software needed for 
the large or small business. This system is 
ideal for the professional or small business 
owner who wants to enter the computer 
age at an amazingly low price. It offers all 
the word processing, financial planning 
and programming tools needed to increase 
productivity. 


The big office with a backlog of work on its 
minis and mainframes can use the Micro 
Decision to generate budget projections, 
sales reports, resource utilization studies, 
off-book receivables .. . all those special 
projects that need to be done now, but 
don't justify tying up a big machine. 


The Micro Decision is a single board, 
Z80®-based computer that comes with 
64K of RAM, an on-board disk controller 
and one or two 5 1/4 inch floppy disk 
drives. An expansion port allows the Micro 
Decision to handle up to four 5 1/4 inch 
drives, while two RS-232 serial ports con- 
nect the Micro Decision to a terminal, and 
a printer or modem. 


WEARS IO0OO » 


Standard software includes Wordstar®, the 
popular word processing program, and 
Correct-It®, a powerful spelling checker. 
Financial forecasting is easy with Logi- 
Calc®, the electronic ‘‘spreadsheet’’ that 
adds computer power to business projec- 
tions. Programmers will appreciate the 
choice of three programming languages: 
Microsoft® Basic-80, BaZic®, and Morrow 
Designs’ Pilot. The software package is 
completed by the CP/M 2.2 Operating 
System, the industry standard O/S that 
allows access to more than 2,000 business 
programs. 


Morrow Designs’ optional terminal offers a 
full 12 inch diagonal, high resolution 
screen with 80 characters by 24 lines. The 
detachable keyboard allows positioning for 
maximum user comfort. An extra RS-232 
serial port provides opportunities for addi- 
tional I/O communication. And the ter- 
minals’ intelligent features significantly 
improve system performance. 


Add a printer and you have all the tools 
necessary to produce and store letters, 
documents and financial reports. 


MICRO DECISION 


The Micro Decision is more than just the 
sum total of its hardware and software 
specifications. Morrow Designs has added 
features to the Micro Decision that make it 
convenient for the beginner as well as the 
experienced CP/M user. These features in- 
clude: multiple diskette formats, enhanced 
error handling, Virtual Drive, simple ter- 
minal configuration, extensive diagnostics, 
a menu-driven front end, and perhaps most . 
important, a clearly written user manual. 


The Micro Decision’s straightforward com- 
ponent design insures continued 
reliability. Each system is given extensive 
quality control and testing before ship- 
ment. 


Morrow Designs has been dedicated to 
high-performance, low-cost computing 
since 1976. First in solid state memory, 
then disk memory, today in both single 
and multi-user computer systems. 


Automation Statham Pty. Ltd. has 
been a Morrow designs dealer since 
1976. 

*Plus Sales Tax if applicable 


AUTOMATION STATHAM -y..1. 


47 Birch St, Bankstown, NSW 2200. Australia. Phone (02) 709-4144. 
In Brisbane: The Softwarehouse (07) 221-9640 


In Melbourne: Microtrix (03) 439-5257 


PEACH 


Alarm Clock 


By Philip Cookson 
THE ALARM on this digital alarm clock can 
either be a “beep” alarm or a cassette on/off 
command, which can be programmed to re- 
cord from radio or television. 


rv 


4 Gis dhs dena Sa bkay Gad Laue Race Weis waa nrc akew er nsauregaendenacdaansuNAebeaee: 
a0 OIGITAL ALARM CLOCK by Philip Cookson 

a ‘ SCREEN MODE IS NEW ON 3 

is PIII titi ttt tri ii irrlitit itr rrr err ETT 
9e 


“ This program utilises the Peach’s internal clock as a digital alarm clock. 
" There 1s a choice of BEEP alarm or CASSETTE function. To use the cassette 
‘function, insert the BLACK lead of the cassette connecter into the REMOTE 
‘socket of the cassette player. Then depress esther the PLAY or PLAY/RECORD 
‘buttons on your cassette player. The cassette motor will be switched off 
“and on under program control. This feature is useful for playing recorded 
‘messages or for recording radio or T.V. programs. 


7 EE AE AE SE JE 98 8 Eb EE A a A 9 a a a a a a a 
SET CLOCK TIME 


“Set screen to interlace mode,4@ characters/line 
“Array NUMB(N,J> contains large numerals 8,1,2,3,49,5,6,7,8,9 


WIOTH 46;SCREEN, ,@:D01M NUMS( 18,7) 
FOR N=@ TO 9:FOR J=1 TO 7:READ NUMB(N,J)sNEXT J:NEXT N 

ON ERROR GO TO 940 : 

LINE(@,0@)-( 639,199) ,"#",4, ‘ 

COLOR 2:LOCATE 1@,2:PRINT"DIGITAL ALARM CLOCK" 

COLOR 6:LOCATE 9,S:PRINT “Set the current date* 

LOCATE 9,7:PRINT "Format DO/MA/YY" sLOCATE 21,9:INPUT “" ,OTES 
“Change date format to YY/MM/D0 to be compatible with DATES format 
OATES=RIGHTS( DTES, 2)¢°/* +M108(OTES,4,2)4*/" *LEFTS<OTES, 2) 
LOCATE 9,15:PRINT "Set the current time* 

LOCATE 9,17:PRINT "Format HH/MM/SS* :LOCATE 21,19: INPUT 
TIMES=TMES 

CLS1LINE(8 ,@)-(639,199),°"",4,B 

COLOR 6:LOCATE 9,3sPRINT “Set the alarm ON time" ; 
LOCATE 9,5:PRINT “Format HH/MM" SLOCATE 26,7: INPUT "" ,ATMES 
LOCATE 9,11:PRINT “Set the alarm OFF time 

LOCATE 9,13:PRINT *Format HH/MM" :LOCATE 26,15: INPUT 
COLOR 3:LOCATE 9,18:PRINT “Select alarm type" 

COLOR S:LOCATE 9,26 . 

PRINT “1. Beep alarm" :LOCATE 9,22:PRINT"2. Cassette operation” 

ALRMS=EINKEYS:1F ALRMB="" THEN GO TO 45¢ 

y IF ALRMS=E"1° THEN ATYPE@="Beep Alarm":GO TO 5 
TF ALRMS="2" THEN ATYPES="Cassette Operation“ 


“",TMES :FLAG=! 


** ,BTMES 


46 
ELSE GO TO 420 


‘ 
496 7 Sete 0 90 EE 6-46-46 40 9b a0 4 a0 aE 28 aE a8 TE EE Eb Oe A HE A A a a aE a aE a 00 Ea HA aE SEE EE a aa a a a a 


fon 


: ‘Word Proc ; lication P 
Revolutionary Wor dsheet with 17 app! i 
: onic Sprea ling facility ter 
PERFECT wae Powerful Ele nagement Data Base i my conjunction with Perfect wri e 
PERFECT eee saps meee Spelling Dictionary ’ wor pee neo one eee n d 
PERFECT ae 50; ee ee ising of: Debtor a 
PERFECT SPELLER: ei ge ete tee es y to use business package et ‘Gort, General 


_—— 

_—— 
—_—— 

—— 


USINESS SYST 
FUTURE Bee. Control, 


CLOCK DISPLAY 
S3@ ‘Set screen to non-interlace mode 
34@ CLS:SCREEN,,! 

SS@ COLOR 1:LOCATE 9,286:PRINT ATYPES 
$466 COLOR 7:LOCATE 9,22:PRINT “ON °,LEFT®(ATMES,2)¢" 2“ +RIGHTS(ATMES, 2) 

570 IF ALRMB=*2" THEN LOCATE 9,24:PRINT “OFF*,LEFT®(BTMES,2)+°:"+RIGHTS(BTMES, 2) 
589 COLOR 1S5:LOCATE 5,@:PRINT "Press R to reset alarm, E to end” 

59@ LINE (@,5)-(1@0,17),°R",7,8 

668 COLOR S:LOCATE 19,11:PRINT "B*:LOCATE 19,13:PRINT "MT 


to output graphic characters. 


" $18 ‘Date display 


62@ COLOR S:LOCATE 15,3 

63@ PRINT RIGHTS#( DATES, 2)+“/" ¢M108( DATES 4, 2)4+"/" SL EFTS$< DATES, 2) 
648 “Hours/Minutes display 

650 NEVAL(MIDS(TIMES,1,1)>>:X= 2:G0 SUB 838 

668 NeVAL (MIDS (TIMES, 2,1>>:X#16:G0 SUB 838 

678 N@eVAL(MIDS( TIMES ,4,1))1X822:G0 SUB 838 

688 NeVAL(MIDS<( TIMES,5,1>>:X=#38:GO SUB 838 

698 ‘Seconds display 
70@ LOCATE 17,7:COLOR 2: 
716 ‘Check alarm settin 
IF LEFTOC TIMES, 2)+"°/*+MIDS( TIMES,4,2)ATMES THEN ON VALCALRMS) GOSUB 888,716 
73@ ‘Enter R to reset clock, E to end program 

748 RSTS#INKEYS: IF RSTS@=#"R* THEN SCREEN,,8@:GO TO 378 

75@ IF RSTS=#"E" THEN CLS: SCREEN, ,@:COLOR7:END 

76®@ GO TO 626 


PRINT VALCRIGHTS$(TIMES, 2)) 


768 UU TTTTITTTITITITTITITULITULIT TTI TTI 
790 ° 

SUBROUTINES 

g1e - 

826 ‘Oisplay the current time 

63@ FOR J=1 TO 7 

848 LOCATE X,8+J:PRINT NUMB(N, J) 

858 NEXT J:RETURN 


860 ~ 

879 ‘Beep Alarm 

886 BEEP: BEEP: BEEP:RETURN 

a9e - 

980 ‘Cassette Motor ON/OFF 

918 MOTOR: SWAP ATMES ,BTMES :RETURN 
920 ° : 


938 ‘Error handling routine ‘i 
94@ 1F FLAG=@ THEN RESUME 318 ELSE RESUME 358 
958 - 


5 : 

DER” 5 He ae ae aE HE HE He Be HE OE BE He HE ME HE aE HE aE aE aE EEE EEE EAE 
970 

988 OATA 

998 

1088 ‘Numeric display data  0,1,2,3,4,556,7,8,9 

1016 DATA * Aa", "® a,'s a,'s ae a,"S ., V7 
1628 DATA * er ies a at he a Bo is f ne a "," a ' =" 
1030 CATA * AA *,°7 e*, a’, LF "," Be _",” ’ ," A" 
1040 CATA * An ,'7 oe,” a. ==, ate “7: 
19se DATA: 4," 40 *'," # 0 °.' a, a *," a," s 
1068 DATA “SRE ,‘@ *,"a ‘, a". * a," ?, ew 
1070 DATA ° AA" ,"@ “,"@ *, "Bs a."s ao, 7 
1086 OAT * GE,” a," , ae a '. "" "i ‘ 
1690 DATA * 4A", "8 @.'\ 4. @—™’,’6 s,s o,.’ _ 
ues DATA * AZ "8 a,"8 a, Ta,“ | | s 
12 . 


LL 2B ° HHHERHRRERRHE EEE HE TE He 9b a ME AE HE HE HE SE aE aE HE HEH HE EAE AER HE HEE TE EH He AE aE EH SEE aaa 


Features Name 


\| features 
ard Stationery. 


Please note 4 


CP/M 


MBASIC Tokens 


By Jeff Richards 

THE TOKENS used in Microsoft BASIC have 
been published many times, but a program 
that actually finds all the BASIC reserved 
words, and prints them out with their tokens, 
may be of interest.The addresses of the 
routines that deal with each of the tokens are 
also listed. 

This program was developed for Microsoft 
CP/M BASIC. (BASIC-80) Version 5.2, but it 

_ should work for most Microsoft BASICs that 
use the same format. 

Two variables may alter with different im- 
plementations. First, the value of BASE may 
change (though obviously for CP/M versir 
it will be 100h). For ROM Basics it will prov. 
bly be the base of ROM. 

secondly, the value COUNT may have to 
be adjusted to get the addresses correct. 
This value is the token of the last keyword 
that could validly commence a program line. 
In the case of BASIC 80, this is RESET 


se a 
on 
_— 


—_——_—o 
_——— 
——_— 


2 
a 
ad 
—_——_—— 


—_——_— oe 
—_—_—_— 


6 etack Control, Greene our, MS-DOS, Se eee 00 
invoicing, Sto r, Utilities, Colour, integrateG. ee $120. 
edger Report Formats HOT alone or fully nese ___———— eA $38.00 
are user PrOoMPtC 8 ee re -DOS or C : 
eee ers cTs — bala kage, MS ade game 45.00 
CUSTOMIZED TECHNOLOGY Ee ariven comin ney opie you UP, ie Gaus arc $32.00 
PERTERM: Eat the mone data base easily et eee TREK $45.00 
CHOMPS: Create you ames including the old Tav treasure in a mansion. k tablet $36. ; 
SAM: PACK II: phys ene where you search for S gout disk and their is haracters on an enlarged wor ts 
GAMES i A 3- < that catalogues Y' define) graphic ¢ level 
ystem ‘iy define (or re to advanced le ee 
TREASURE H A Catalogue one to easily det the beginner to advanhh™ 
: : ct allows rograms tics from the bev 
CA NACTER GENERATOR ae OE bles and cross ST aan of the logistics of Hioataies a re of 4) $650.00 
3 NCE: ram takes One ~——-—--- 27 Gen and GBS System (Suite sone 
ROSS REFERE , This program tan"® k Gen and GBS system ee 
ARITHMETIC OS ae oa ease Menu Gen, Serial “CP/M 86 seeenste rn 
ee , a . ogee 
een A E= ment system. Sl eset a ead icing ‘ 895 00 
QUALITY S ‘onal database managem™' = WT btors, Stock/Invoicins, Suite of 4) $1 : 
Programmable relations _-——— et COUNTING PACKAGES Heeirese  saercnanis and Clothing) Speers 3 
<amak SOFTWARE SYSTEMS — ACCES) includes Couriers TT Home Systems er a an 
dger and Credl ing, Manufacturing SY delling packages 
Sade packages, Bakers Job sn eae menu driven super financial MO aus PH. (02) te ras 
eo e most po ~ 
SAPPHIRE M RS: ons oteme” UTERS 100 GEORGE Sr iLDA RD MELBOURNE. © (07) 397 08 
SAP HEE ae elcome TA, SYDNEY: PRESIDENT CAT C ERS 1 OO AN RD STONES CORNER OLD © ) 307 6333 
ries welcome IRNE: PRES s416L AREMONT W.A.- (08) 223 
Dealers inquiries ps ME OO a RESIDENT C 4 LEURA AVE CL ELAIDE S.A. ® 
aera BRISBANE | ESIDENT Cosy PUTER RS 400 PIRIE STREET AD 
‘MIDE: PRESID 


60 


> president 


(CCh) with only such keywords as THEN TO SAMPLE RUN ~ MICROSOFT BASIC-88 VERSION 5.2 


lf you want to use this informtion to do o a4 Pr 1) ape ase . lta aer8 
some poking around in the interpreter, have ; @E ATN 394E 8B IF 167A A9 RESUME 159FC 
15 asc 4964 DA INSTR CA RSET 5478 
a look at the TRON and TROFF routines for 5 AUS 1644 os ir oATP 62. RIGHTS 4998 
j j C3 CLOSE 53DA le INP 2063 68 RUD 380A 
a little bit of wel sneaky code. 9A CONT 4491 FB IMP AC RBNUN 22F¢ 
92 CLEAR 4539 DD INKEYS CC RESET SOBA 
1C (CINT 2979 C8 KILL 59D3 BB RANDOMIZE 248A 
1@ DEFINT A~Z 1D CSNG 29F3 88 LET 1541 96 SsTOP 4435 
20 BASE#"&H100+5 1E CDBL 2AlF Bl LIWE 18lF AS SWAP 4434 
38 COUNT=&HCC 2B «CVI 5186 C4 LOAD 52Al CB SAVE 539C 
ae c=] 2c CVs 5183 c9 LSET 547C D4 BPC( 
5@ FOR I=1 TO 27 . 2D CVD ete 9E LPRINT eeey _ STEP as 
gc cos 38A 9F LLIST 209A 94 SGN 287B 
68 IF I=27 THEN J=J+1:GOTO 98 16 CHRS 4914 1B LPOS 1D85 97 SOR 36PA 
70 11=BASE+256+ (I*2) B6 CALL 4Dl1 93 LIST 269F 99 SIN 38AC 
88 J=PEEK (11) +PEEK (I1+1) *256 BS COMMON 1515 8A LOG 26C2 13 STRS 46B7 
9¢@ IS=*";IF 1<27 THEN IS=CHRS (1+64) . B9 CHAIN 4094 3@ =Loc $644 D8 STRINGS 
11¢ IS@1S+CHR$ (PEEK(J)AND &H7F) 86 DIM 39A3 61 Lerrs 496A BD SYSTEM 5933 
AD DEFSTR 138 31 LOF 565C A3 TROW G4ak 
120 8IF (PEEK(J) AND &H88) GOTO 146 AE DEPINT 13FE CS MERGE $362 A4  TROFF a4aar 
138 JsJ+1:GOTO 118 AF DB8FSNG 1461 FC MOD DS TAB( 
149 K*= PEEK (J+1) BS DEFDBL 1404 32 MKIS$ 5167 CE TO 
ae eee ee er ee AA DELETE 22874 mS —(i«SED:SSCt«sSOPA, (3939 
t 
chia ga me GoTo 216 81 END 443A 63 MIDS 49A5 D9 USING 
ans A2 ELSE 1517 83 NEXT 45cs D2 USR 
os Scie ysoyen ace A6 ERASE 44Pr2 96 NULL 44a5 14 VAL =: 496 
| =(K- A? EDIT 3D0£ C7 NAME 5864 DC VARPTR 
206 KS=HEXS (PEBK (K) + (PEEK (K+1) *256) ) AS ERROR 1639 94 NEW 4354 Al WIDTH 203¢C 
op eno ee a so Sor anne g mic ael5 
oe bo ee eae a @B EXP 3757 95 OM 15AB BS WEND 4coc 
, 2F EOF  §592 BP OPEN 5839 B? WRITE 5981 
240 NEXT I FA £QV F8 OR | r9 XOR 
82 FOR 11Be 19 ocT$s 46AB r2 + 
C@ FIELD 5418 BA OPTION 2449 m3 
C6 FILES 59FD C2 PUT SAF6 rae 
READ ABOUT D3 «FN 99 POKE 22CB FS / 
OF PRE 4b18 91 PRINT 16cS i asia] shl(* 
lP PIX 2a6C 11 Pos 1DEB FD \ 
89 GOTO 14¢3 17 =PBRK 22C) sy 
89 GO TO 14€3 $7 READ 1957 gF > 
8D GosuB 14AB 8A RUN 1495 ro 
Cl Get SAP? 8C RESTORE 461A Fl < 


Spaceship 
Lander 


By C. Colle 
WITH Spaceship Lander, you can simulate. 
the landing of a spaceship on any planet in 
the solar system. The table gives you the sur- 
face gravity values for the planets and some 
of their satellites. 

The gravity used in the sample run (1.62) 


is for Earth’s moon, .and is a good landing — 


(soft landing and less than 200 metres from 
target). To have a successful landing, your 
speed must be less than or equal to eight 
metres per second when you're four metres 
or less above the ground. 

' To succeed, you have to input two acceler- 
ations, one to reduce the speed, the other to 
get nearer the target. If you slow down too 
much, the speed becomes negative, meaning 
that you’re going up instead of down. The 
height, too, increases instead of decreasing. 
You can input an acceleration of zero, .mean- 
ing free fall. 


: Mercury : 3.°5 : Callisto : 3.20 :3 

: Venus : 8.72 3: Saturn : 8.77 

: Earth : ¢.81 : Uranus : 9.46 3 

: Moon : 1.62 : Neptune : 13.66 

: Mars : 3.84 3: Pluto : 4,8 3 

: Jupiter : 23.16 3: Ceres 0.85 

: Ganymede : 3.43 : Palas O.54 3 

: Io : 2.26 3: Juno 0.21 : 
Europa 1.48 Vesta 0.43 3 


102"L"PRINT "SP 
ACESHIP LAND 
ER" 

15:3=1,3:D=SiM= 
2000: P=750 

20:BEEP 13 INPUT 
"GRAVITYS “3 


G 

S02 Fegagans A=¢ ¢ 
HF >.7 CS 4t4) > - 
Gi V=p4eCF 7M) 
sli=Qe Yxt We? 2 
“C24R EK 

408 Jan C2 ysl oe 
I“ CLT+ADD 25 


T=*i0 I-A ee) 


“CF #5) 

208 Q=hM-P 
SQeH=INT <Y8k= 
INT ¢¥OEL= 
INT <Q)8N= 

INT CH) 
BOSPRINT “HETISH 
=3Hi "SPEED 


mak 


TOIPRINT “FUELS 


"sks "DISTANC 
E="GN 


SQitF M=PTHEN 1 


sal 

SO: BEEP 1: INFUT 
VERT. ACIELE 
RATION= "3Ts 


“HORTZ. ACCEL 


ERATIGN= "si 
120° A=T#F “E2 
110: B=ld4e -E2 
1202 M=—-¢ (CR +E 

T#D9~ 500 3 
120° IF MoFTHEH i 

at 
14029202 B=02 =P 
Ls 2c Det db-Ae tis 

E. ) 
1802IF 2OLET 2= 

24-1 
17O:IF A=OLET ‘= 

W+ZEGOTG 130 
LO s ial! —i2 7 
1'20: W=l+DeR-t 
a 

Dehli es 


SHARP (AND TANDY) PCs. 


2308 z= JeD 

Ws i? 

ate) TE ¥=4 THEN 
il) 

~TOeBoTG So 

220i TF Ya=sTHEH 
$10 

22geHNSUB S00 

2S02PRINT "YOU C 
RASHED AT "s 
Ka Mee" 

SMO2PRINT Ws" I. 
FROM TARGET" 
Sint 280 

S10: IF “a2 200 THEM 
5 Ll 

S208 50S SUB 300 

S20IPRIHT "CONGR 
ATULATIONGS. 
“itl 

S40:PRIHT "ARE " 
SNe" ft. FROM 
TARDET": 
HITS 20 


S50250SUB 500 


SE03PRINT “GOOD 
LANDING BUT" 


— ZTO!PRINT Hi" MM, 


FROM TARGET" 

3202 INPUT “AHOTH 
ER GAME 7 "3 
Wt 

S90: IF We="YES" 
THEN 15 

400:END 

SHO:NSABS CINT © 
D9 

510:RETURN 


“GRAVITY= 1.62 


HEIGHT= 12250, 
SPEED= 414, 
FUELS 1250, | 
QUESTAMWCE= 414, 
WERT. pode aee 
HORI2. ACCEL. 
HEIGHT= ‘2394. 


“DISTANCES 406, 
WERT. AChEL.=5 
HORIZ. ARCEL. =5 


READ ABOUT 


HEIGHT= 7769. 
SPEED= 337. 
FUELS 1131. 
DISTAHITE= a 
WERT. ACCEL. 


HORT. AECEL, #5. 


HEIGHT= S652, 
SPEEDS 336. 


FUEL= 11654, 
NUSTAMCE= = 
WERT. ACCEL.: 


HORIZ, anCEL. a 
HEIGHT= 344, 
SPEED= 434, 
FUEL= 1147. 
DUSTANCE= 371. 
WERT. ACCEL. =100 
HORIZ., ACCEL. . 
HEIGHT= 1660, 
 SPEED= 230, 
FUEL Tes, 
DISTANCE= 237. 
WERT, @CCEL. =S0, 
HORIZ. atckL. =". 
HEIGHT= 346. 
SPEED= 135. 
FUEL= 602. 
DISTANCE= 2°31 
WERT. ACCEL.= 
HIMRIZ. ACCEL. 
HEIGHT= 742.. 
SPEED= 17. 
FUEL= 414, 
TISTAHCE= 180, 
WERT. ACCEL. ae 
HOR T2, ACCEL. 
HEIGHT= 346, 
SPEED= 65, 
FUEL= 414, =. 
CISTAHCE= 90) 
WERT. ACCEL. =1u% 
HIRIZ. ACCEL. =O, 
HEIGHT= 35. | 
SPEED= Si, 
FUELS 780, 
TISTANCE= 20). 
WERT. ACKEL. HSS, : 
Hitk Iie, accel, =f, 
CONGRATULATIONS. 
VOL ARE 50. METRE 
S FROM TARGET 


eet 
— 


PRATTL 


Mark Prediction 


By C. Colle 
THE MARK Prediction program will be par- 
ticularly useful to students wanting to know, 
in advance, their average grade marks for the 
year. 

Enter ail the marks or ratings in any subject 
that you have received, and. then those which 


you would like to get, and the program will. 


tell you the percentage chance of this. How- 
ever, you must assume that your work is con- 
stant. You can also find out the mean and 
standard deviation. 

X is the mark to be entered, and Y is the 
frequency of this mark. When all marks have 
be entered, type O for the last X, then 
en. «he mark you would like to get. 

The program listing is for the printer. Press 
ENTER for your chances for a different mark. 
However, if this mark is for another subject, 
press SHFT M, as the memories must be 
. Cleared first. 


Alien Attack 


By Scott Story 

ALIEN ATTACK starts with the Alien moving 
along the screen to base. The attack can be 
che~“ed and stopped, after five hits, by pres- 
sit, ie 7 button (which stops the invader 
when it appears on the top of the screen), the 
4 button (which stops the invader in the mid- 
die of the screen) or the 1 button (which 
stops the invader at the bottom of the 
screen). 

The alien then begins another attack, each 
time moving faster and faster as it ap- 
proaches the base. You score a point each 
time you hit the alien. 


[:;P=1:F=@0: B=48 
18: "A"; CLEAR : 
WAIT 180: PRINT 
“ALIEN ATTACK 


START" 
28:DIMN T$63) 
30: 7$¢C1)="8482038 
204" 
48:17$(2)="18888C@ 
810" 
5A: 7$C3)="4828302 
B40' - 
BO GE UROOF 118 
APS:CLS «PHl]:F=F+) 
: S=A: ie 42 : 


B8:FOR J]=1TO 11 


10: "M"PRINT "MA 
RK PREDICTIO 


HH" CLEAR 
13: INPUT "ENTER ‘ 
x Ge 
15 oat SPRINT i = rT} 


208 IF X=OTHEN 8 
D 
ers INPUT “ENTER 


. " " H ' 
SO8PRINT "Y = " 
H oa 


402 A="A BEB ys C 
=I+As T=K4: E= 
“Ds F=F+E 3 G=C 
ie 
TOMGHTO 13 
20: f=C-B 
SO8PRIHT “MEAN 
= "SUSIHG "8 
RE.U"SM 
1NOs S=fCCF-o- Bs 
35 /B 
LS 2=S/101-17B2 
110:PRINT "STAND 
» DEVIATION= 
us? 


38: GOSUB 5@@5 
188: A$=INKEYS 
118: 1F AS="7"AND R 


- =)GOTO 8gga 
120: °F QG="4"QND R- 
=2G0TO 8888 
138: 1F Ag$='1"QND R 
=3G0TO 8808 
1940: P=P+18 
1SB@:NEXT J 


155: L=F*S+S-5 
165: COTO 8388 : 
288:FOR A=O8TO 28 
218: BEEP 1,4 
220:NEXT A 
ZOS2 EL IRSOR: | 
238:PQUSE "ATTACK 
HALTED °": GOTO 


306 
300:;CLS :;P=!}:F=F+! 
/S$=38:B=B-2 
318:COTO 8@ 
5085:CLS 


5007: WAIT 18: 

GCURSOR 128: 
» GPRINT "2FIF 

Ps te 
5@1@:R=RND (3) 
5828: GCURSOR P 
5830: WAIT B: 

GPRINT T$(R) 
| ~:BEEP 1, 6@ 
5@5@: RETURN 


ED MARK ¢ 
H 


1403PRINT " DESI 


RED MARK 7 " 
aN 


— TS0:0=NIG0SUB 20 


) 


“160:0=4R: Cie. 5: 


HISUB 200 
1fOFN=O+RIO=N+.5 
i Sb0SUE 200 
1305 Q=04+RiP=6,65 

2s BEEP 2 
V30:PRIHT "YOu H 

ve 48 ifs 8 “ 

ITHANIZE SS" & 

HIT 130 


21908 ee CO-MoeCo-14 


tR=fcEXP 
“73 RETURN 


MARK PREDICTION 
& SAMPLE RUN 4+ 


8000: S=5+) | 

8005: GCURSOR P. 

8007:BEEP 3, 50,58 
:BEEP 23, 158, 
188 

8010: WAIT- 199: 
GPRINT "“@81C 
3F1Ca8". 


8825: IF S=SGOTO 2 
214) 


~8838:GOTO 148 


8388: GCURSOR 128 

83130: GPRINT "AFF 
PF" 

8400:CLS 

84805: GCURSOR 138 

8420: GCURSOR 185 

8430: GPRINT T$CR)D 

8458: GCURSOR 111 

8455: WAIT 25: 
GPRINT "8888 


8468:GCURSOR !11 
8465: WAIT 25: 
GPRINT “@8a8 
 ggaB" 
8478:GCURSOR !!1 
8475: WAIT 25: 
GPRINT "9888 
28988888" 


' 8488: GCURSOR 111 


m— Ui i oe J 


). 
MEAN = 6.0 
STAND. DEVIATION 
= O.f | 
DESIRED MARK * 
6.0 - 


“MU HAVE 
CHANCES 
DESIRED MARK ? 

f.0 


YOU HAVE 
CHANCES 


eee 4 


22.1 % 
DESIRED MARK ? 
5.0 


YOU HAVE 
CHAHCES 


22.1 % 


8485: WAIT 25: 
GPRINT "8888 
A8B888088888 © 


8498:GCURSOR 111 
8495: WAIT 25: 
GPRINT "8828 
asesesesasas 
a8a8" | 
8508:GCURSOR 125 
8518:WAIT 55: 
GPRINT "2415 
1E3E7F" 
8515: GCURSOR 125 
8520: WAIT 6@: 
GPRINT "1449 
2C126C7F 
8525:GCURSOR 125 
8538: WAIT 6@: 
GPRINT "@A2a 
1C2820" 
8608:PAUSE "YOUR 
SCORE-"3L 
9880:BEEP 1, 98,50 
:BEEP 1, 78,5 
) 
9818:BEEP 1, 158,9 
@:BEEP 1, 150. 


, 188 
9620: BEEP 1, 58, 6@ 
7 >BEEP 1, 258, 
138 
3638: END 


63 


i ; , _ 3 REM**FOR VIC 20***SEE NOTES AT END : 49Q@ PRINT" (home )(7 down)(22 spaces)" . 
hi Mat Ss 1@  REM**SHIP MATHS BY RIC KUBE WAIKERIE Sa 5330 (C) 1982 saa Geno see 
F : 20. PRINT" (clear)(black)WHAT IS YOUR NAME"; INPUT N¢ 51 PRINT" (home) (7 sou) (oty) (ye )¥0U GOT A SCORE ort oh: PRINT" (5 right) . 
~ , 7 


30 PRINT" (clear): POKE36869,255: S=7680: cr=38400 (rev) (red) WITH" W"WRO! 
4Q DATA _71€8,0,0,0,0,13,13,13,13,0,20,0,2, 128,128, 128,128 520 PRINT"(home)(11 sour) (6 right) (rev) (sur)? LOTHER ‘aon patNt" (down) 
By Ric Kube -5Q@ “DATA. 7296, 13, 15,15,154127,63, 34,15, 128, 248, 248, 248, 255, 254,252,248 ; content yi vey) (ies 
bd 60 DATA 7184, 129,195, 103, 127,127,63,63, 31,0, 128, 16,56, 240, 224, 224, 240 ease = eats pores ne eREee oT wie Coren onu* as 
DEVISED the Space Maths program primar- 72 ise Pin.t2.) aga. sie ae teh Se tense cose 
SOA oe in tet ge Sag as Seuss to vate eae ‘ 6 FOR L = yi T010# FOR ‘M = 18970235 STEP2: PORESEATE, M: 
ily for my son to learn his addition, but it can 90 DATA 7328,3,3,3,3, 3,3, 3,3+255,255, 248, 248, 248, 248,255,255, 700 OR Ro itot@s NEXEN 
/ . 12@ DATA 7216, 1, 3,75 1553163, 1275255515 3979155 3163,127,255 570 ROT: Q: FOR M «= "170100: .NEXTM,L:  POKE36878,0 : 
be changed to work any of the four functions 130 DATA A TD gee Oe OB gag 580 PRINT"(home)";TAB(H);B$t FOR A © 1TOLM@: NEXT; GOSUB 64m 
* H H . . : 59@ PRINT"(nome)";TAB(H);C#: FOR A = 1TO40O: NEXT: GOSUB &@ ~~ 
_ 14@\DATA @ 
= and / by changing line 30. , ee nai N: TPN THEN FOR Nel TO Ne*5: READ *: POKE NA: NEYT: GOTO 122 600 PRINT"(home)";TAB(H);D8: FOR A = 1TO5O@? NEXT; GOSUB 64@ 
The program. gives. 10 problems (minimum) - 460 FOR i 7424 TO 7437: POKE 1,0: NEXT . see laed AE o 3 sacks ees hd 
/ +. 178 PRINT"(clear)" — ; one)"s aF Se: - ; : 
and keeps score. If you get five wrong, a red 180 A$="(down) (black )@A(down)(2 left)Pa" , * coro Jae ee eee , 
190 BS="(down)(black)BC(down)(2 left)RS" @ PRINT"(home)";TAB(H);0#: RETUR 
alert ‘sounds | and the ship travelling across 200 C$="(2 down)(black) BC” 65@ -PRINT"(home)";TAB(H);R#: RETURN 
210 _D$="(down) (black)DE(4 Soa eetvanre 70@ REM ** TO FIT SOME LINES YOU NEED TO ABBREVIATE KEYWORDS ** 
the top sinks and a new game begins: The ==) er"(sem) reo taow 2 der) Sse © ese ees Gre ame vale aa etna 
2 **-IF G EXPA ' 
shi nd wav r j h rog- 230 F$="(2 down)(black)D" 7 
ps a d waves 4 ° made us Ing: t ep 24@ G$="(cyan)(3 down)FG(down)(2 left)vw" 730 REM ** TO 4096 AND 37688 ** 
rammable characters. This is found in lines 250 H$="(home)(9 down)(7 right)(9 spaces)(*1 left)(11 spaces)" 
26@ Q$="(down)(2 spaces) (down) (2 dete )(e spaces)" 
30-160. : 7 270 R&=" (2 down)(2 spaces)" 
so 280 PRINT"(home)"; TAB(Q); At 
- Variables: ° 290 FORA=Q@ TO 20: PRINT TAB(A);GR:NEXT 
A$- F$— different parts of the ships. 300 ae bake down) (7right) (rev )SHIP MATHS (down) (71 pent) hecsen 
rev 
G$- waves on sea 310 POKES677 1 ,180: FOR Le 1705: D= INT(RND(1)*5)*50450: FOR M= 3701 5: 
H$- R$ - t d t t d : ‘320° FOR Ne TOD: - N,M: FOR M= 15TO3 STEP-1: POKE36878,M: FOR N= ak 
erases unwan eas rings O prot uce : Nw : 
338 ‘POKE36878,0: "POKE36877,2 : : 
movement : W4@ FOR Ap OTO21: POKES+A+3*22,230: POKECT+A+3*22,3: NEXT 
350 PRINT" (home) (right)(green) (19 down) (rev) "N§ 
S and CT — top left corner of screen for pok- 360 FOR H= 7019 STEP2: PRINT" home)" ;TAB(H) :A8 
i 370° PRINT i$ a, 78 
ing and colour ¥ 380 ‘XwINT(RND(1)*12): YeINT(RND(1)#12): ZeX+Y F 
39@ PRINT"(home)(2@ down) (rev) (blu)SCORE"SC . 
H- loop for giving problems and moving ship 40@ PRINT"(home)(20 down) (rev) (red) (14 nient /WAONS" W 
; 44@ | PRINT"(home)({11 down)(22 spaces)" 
SC - - score 42@ PRINT" (home)(11 down)(5 right) (rev})(bla)"Xe"vtes : INPUTS READ ABOUT: 
W— sums wrong 43Q@ IF Q = 2 THEN 45a 
44Q IF O<>Z THEN 48@ 


A- loop for ocean. ; 450 SC = SC+1: PRINT"(home)"s;TAR(H)sO%: REXI 
emir neem Late rer 
Ez 3 = BE 
_ Some of the lines are a little long and | pa east ata ts | 


needed to abbreviate as much-as possible. 480 rRi4r(nome)(ce¥)(? down)(2 raght)f0C B/D IT VAS"Z: Wewet: TPHe5 


_ +Games +Utilities «Commercial 


G-Pascal is probably the most useful program you will © FEATURES: 

buy for your’ Apple! Its user friendliness and extremely Comprehensive Pascal subset 

fast compile speed (between 4,000 and 6,000 lines per Includes compiler, editor and interpreter 
minute) make it a joy to use for professionals. and Will run on 48K or 64K Apple with DOS 3.3 | 
beginners alike. Its simplicity in fact makes it ideal for Support for printers and 80 column cards 
schools. The built-in text editor is very easy to use — Complete system only occupies 14K of memory 
you can actually use the Editor on its own for simple Includes Trace and Debug facility 

word processing applications. Operation of the compiler Supports graphics, music, assembler calls 

is very straightforward — error messages are in plain Powerful text editor 

English, not numeric codes. Also available is a runtime Compiles at between ‘4,000 and 6, 000 lines per 
system. which will run pregrams independently of the minute 


ck ail G-Pascalcompiler = 85.00 
Runtime system : 35.00 
Adventure game | $35.00* | 

Ask your local dealer, or send cheque, money order or Missile Attack game (* G-Pascal source supplied) $35.00* | 

‘Bankcard number direct to us. - Starter Kit 

All orders shipped by airmail at no extra charge. (Compiler, Runtime system plus one game) $1 10. 00 


Piease write or phone for more information: Gammon & Gobbett 
PO. Box 124, ivanhoe, Wictoria _ Australra 3079. 


Kx kK KX Kk Kk Kk * 


Telephone: (03) 497 1283 Computer Services Pty Ltd 


SINCLAIR 


Symmetry 


By Stewart Collins 

SYMMETRY is a program that produces 
symetrical patterns on a screen, and can only 
be stopped by pressing the space bar. It fits 
in one kilobyte of memory. 


LET N=39 
LET M=21 
LET U=@ 
LET D=-1 
30 LET X=RND*M-M+RND 
49 LET Y=D-RND*X+RND 
50 FOR R=M TO N 
60 PLOT N+X,M+Y 
7% LET T=X 
_ LET S=U 
99 LET D=D-2*(D AND S) 
100 LET U=S+D 
110 LET X=X*U+Y*S 
126 LET Y=T*S-Y*U 
130 NEXT A 
148 GOTO N 


Execute by typing RAND and GOTO 
0. [J 


Typing auror 


By Peter McKay 
THE AIM of Typing Tutor is to teach the user 
to type by being given lines five words long, 
to be typed as fast as possible. At the end 
o ~—— sh line, the time is shown in seconds. 
Be.ure the main program will run, program 
two must be run with data for the first sen- 
tences. 

Sample data: 
(R$) — Jana, Rhys, Thom, Jane, Jack Scott. 
(Z$) -— Threw, Found, Passed, Pushed, 
Helped, Sat on. 
(S$) — Fat, Big, Cold, Sick, Smug, Huge. 
(O$) — Hog, Pig, Cow, Cat, Rat, Dog. 
- Words of nearly the same length must be 
used so that spaces between the words are 
few. The program displays the sentence, and 
the last letter pushed appears in inverse. [_] 


LAA 


th 4A oh 


ES TD pe am. me. 20. om 


ikea agra 


MHHHO LP Oe 
hh 


= 
0 
C 
ae 
0 


L388 
LEeOe8 


Catcher 


By N. Weaver 

THE IDEA of Catcher is to catch as many Os 
as possible with the ). The program uses the 
RND function to set the height of the “ball” 
and loops to move it across the screen. The 
INKEY$ function controls the height. The 
main part of the program is in lines 17 to 27. 
Line 33 decides whether you have the top 
score. 


1 LET Z = 0 

3 LET Ag =" 

De PAUSE 100 

7 LET A = 0 

g LET C = 14 

11. CLS 

43. FOR J =1 TO 10 


15. LET B = INT (RND X 19) 


17. FOR I =0 T0 15 

19. PRINT AT B,13;"0";aT C,15;'*)" 

21, Ir C =B AND I = 15 THEN LET A = Att 

23. LET C =C + (INKEY $ ="6") = (INKEY $ =7") 
25. CLS 


27. NEXT I 
29. NEXT J 
31. PRINT AT 10, 0; "SCORE ="sa 


33. IF A> Z THEN GOTO 39 


35. PRINT AT 14,0;" TOP SCORE="; Z;" BY" ; ag 
37. GOTO 5 

39. PRINT AT 11,0; "TOF SCORE. NAME ? "s- 

41, INPUT As 


43, PRINT At; "" 3 A 
45, LET ZA DOWN-6 
47, RAND Z UP-7 


49, GOTO VAL "3" 


Resistors 
By Alan Hill 
RESISTORS is a simple but useful program 


_ which runs on a Sinclair ZX80 with eight kilo- 


bytes of ROM and four kilobytes of RAM. 

It should also run in one kilobyte, but not 
with the old ROM because of the arithmetic 
limitations. 


10 PRINT "THIS PROGRAM CALCULATES 
OVERALL RESISTANCE." 


20 PRINT 

30 PRINT "ARE RESISTORS IN SERIES ? (S)" 
40 PRI:T "OR IN PARALLEL ? (P)" 
50 INPUT ag 


60 IF A$=e"S" 2HEN GOTO #00 

70 IF A$="P" THEN GOTO 400 

80 GOTO 30 

100 CLS 

110 PRIGT "HOW MANY RESISTORS aE" 
120 PRINT "Ili SERIES TOGETHER ? "; 
130 INPUT N | 

140 PRINT 3: 


150 PRINT ee 


1 REM “TYRPING TUTOR 
2 LET R=INT (RND#63 +2 
3S LET S=INT (RNDs63 +12 
4 LET S=INT (RND#63; +121 
S LET G=iInNT (RNOees +2 
16 LET MS=RGOCRI + “48029 4" TH 
EF "#58 (5. 4+" “408 (0) 
iS PRINT AT &. 
2@ FOR I=1 TO LEN 
#1 IF .INKEY $=" THEN GOTG oi 
ee LET AS=INKEY §$ 
_ #9 IF AS=CHRSE 116 THEN LET AS=. 
eda LET W=f 
aa IF AGE SMNHCI TO IT) TREN GOTTA 
2e iF I=32 TRER GOTS 222 
=a?’ IF W=1 THEN ae W=2 
re eins PRINT AT @.W-LsMSiV-2 TQ we 
SO PRINT AT @. IJ CHReE (CODE mgs ( 
X TO 13 +125) 
40 NEXT I 
© LET THINT (6S55S5-PEEnK 16¢36 
-2S6#PEEK 16437) -SO 
SS PRINT AT 1.0; "SCGORE= - 
S@ PRINT AT 1.0, “SCORE=".T 
1@@ GoTo i 
L11i POKE 164a437.255 
Lie PORKE 2S4 36.255 
113 GOTTA 
1S5@ SAVE “TYPING TUTOR 
168 GOTO i 
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4 
4 


SINCLAIR | 


170 PRIME "IFUL VaLuss Ii. OHMS" 
190 Lut R=O 

200 DIN V(z:) 

230 FOR J=170 

240: Falah UR yds 2 83 
250 INPUT V(I') 

260 PRINT V(t) 

270 LEL R=R+V(1) 

280 Nxt J 

290 PRIN 

300 PRINT "R = "53R;" OHMS" 


310 PRINT AT 20,0;"HIT NEWLINE 
FOR NEXT CALCULATION" 


320 INPUT 2$ 
330 CLS 
340 GOTO 10 
400 CLS 


410 PRINT 
ARE" 


420 PRINT "Il. PARALLSL 
TOGETHER ? "5 


430 INPUT H 

440 PRINT N 

450 PRINT 

460 LET RR=0 

470 DIM a(t) 

480 PRINT "INPUT BACH RESIST 
ANCE Ic: OHMS" 

490 FOR K= 1 10 NJ 

510 ERINT "R'3K3" 2 "3 

520 INFUT a(K) 

539 FRIUT a(k) 

540 L:? RR=kk+(1/a(K)) 

550 NEXT K 

560 FRIUT 


570 PRIUT "R s "51.2 ((1/RR) 
eo 3 On, SN 


GOTO 310 


“HOW LIANY n&SISTORS 


580 


Australia 


By K.E. Johnstone | 
AS A TEACHER using a Sinclair ZX81 in pri- 
mary grades, I've found that most programs 
seem to be aimed at mathematics or spelling. 
However, here’s a truly Aussie program 
which has proved popular with children. 

A map of Australia is printed and the user 
is asked to name each state. When all the 
states are named correctly, the name is done 
for the capital cities. 

The program is entered in two parts — the 
first part sets up the map: 

S REM "AUSTRALIA" 
10 OIM A$(132,2) 
20 PRINT 1 


30 FOR Nw=1 TO 132 
40 INPUT A$(N) 


50 CLS 

60 PRINT Ng AT O,4sA8(N)$ AT 2,03N+1 
70 NEXT N 

80 CLS 


At this stage, the program should be RUN 
and the 132 pairs of co-ordinates entered as 
follows: 


mV MU NT NS OR PR PQ PP QO QN RM SL TK UD VI VH WG XF XE-XD 
XC YB XA X9 WB V7 V6 VS U4 US T2 S2 R2Q1 P2 01 NI M2 L2 K3 
K4 35 36 I7 H6 HS GS G6 F7 E7 O07 CB 88 AT 96 86 76 65 54 43 
33 22 12 01 41 42 43 44 45 36 /7 /8 *9 -A *B HC =D EE =F *C 
/H 31 ,I 23 03 OK 1L 1M 1N 2M SN 30 3P 40 5R 6Q 7P 8Q BR OS 
ST AT BU CT DT ET FU GY GT FS FR FQ GP HP IO 30 KO LP LQ LR 
LS LT R, R$ R/ Q* P* OS OF O, Py Of 
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Lines 10 to 80 may now be deleted. Re- 
member that the map co-ordinates are now 
stored as A$ so don’t use RUN. 


370 


430 
440 


510 
515 
520 


615 


645 


1000 
1010 
1020 
1030 
9100 
1110 
1120 
1130 
1140 
1200 
1205 
1210 
1220 
1230 
1240 


LET 2=Z+100 

PAUSE 300 

CLS 

IF Zm700 THEN GOTO 90 
PRINT TAS 33 "NAME THE CAPITAL." 
SOTO 105 

FOR N=1 TO 132 

PLOT CODE AS(N,1)=19,CODE A$(N,2)-19 
NEXT N 

FOR Net? TO 39 STEP 2 
PLOT 19,N 

NEXT N 

FOR W=19 TO 31 STEP 2 
PLOT N,25 

NEXT N . 

FOR Nae25 TC 13 STEP =2 
PLOT 31,N 

NEXT N 

FOR Ne32 TO 40 STEP 2 
PLOT N,22 

NEXT NV 

PLOT 41,21 

FLOT 42,22 

FLOT 32,16 

PLOT 34,15 

PLOT 36,15 

PLOT 38,14 

FOR N=25 TO 33 STEP 2 
PLOT 29,N 

NEXT N 

PRINT AT 13,183" " 
RE TURN 
REM 13 ,18 m= AUSTRALIAN CAPITAL TERRITORY BUT NAME TOO LONG 
FOR SCREEN 

LET B$="P7QUEENSLAND" 
GoTo 1000 
LET 8$="$(NEW SOUTH WALES" 
GOTO 1000 

LET BSe"?( VICTORIA" 

GOTO 1000 

LET B8m%c( TASMANIA" 

GOTO 1000 

LET 88="eNORTHERN TERRITORY" 


GoTo 1000 

LET 8$="fmSOUTH AUSTRALIA" 

GOTO 1000 

LET P$e"py WESTERN AUSTRALIA® 

GOTO 1000 

LET 8$e" OARWIN" 

GOTO 1000 

LET B$="2=BRISEANE" 

ceTc 1000 

LET 68="8+SYorey" 

GOTC 1000 

LET b$="2>ME L20URKE" 

GOTC to00 

LET G$m'<>HOBART" 

GOTO 1000 

LET B$="£$ALELAIOE" 

GOTO 1000 

LET 8$="% PERTH" 

FOR M =3 TO LEN L$ 

IF S&(M)y' " THEN PINT AT CODE ©8(1),COOE B$(2)4m—33"2"; 
IF 5$(M)=" " THEN PRINT " "3 

NEXT f 

INPUT C$ 

IF C$U$(3 TO) THEN GOTO 1200 

PRIKT AT CODE &$(1), CODEN $(2)3C$ 

LET Q(R) = 
GoTo 150 
PRINT AT 21,0;"WRONG" 

REM, PAUSE MAY BE USED FOR SLOWER READERS 

FOR N=3TO LEN 8$ 

PRINT AT CODE B$(1),CODE 8$(2)4N—3g,CHRS$( CODE B§(N)+128) 
NEXT N 

PRINT AT 21,03" i" 


= 


1250 LET Fef=1 
2000 GOTO 150 
9990 SAVE "AUSTRALIA" 


9999 GOTO 90 
Note line 620 ~ 88(1) is Grephice A, 


Chaser 


By N. Weaver 

TRYING TO avoid being eaten by a monster 
is the aim of Chaser. When running the pro- 
gram, GET READY will appear, followed by 
a pause. Three dots will then appear on the 
screen, one with an H which is home, one 
on the left which is the monster, and the re- 
maining dot on the right — you. The main part 
of the program is in lines 31 to 51. 


PRINT “GET READY (INVERSE) 
LET 2 = 1 

LET A INT (RND * 29) 

LET C INT (RND x 6 ) 


INT (RED K Ud) 


NM PH A AH] HK ON 


WwW] vontdiunWwme 6 © © e 


PLOT L,M 
IF X = L AND M = Y THEN GOTO 57 
PLOT CB 
PRINT "H" 
31, IF INKEYS 
INKEYS 


‘HY THEN LET X = X+ 
"G" THEN LET X 
INKEYZ = "Y" THEN LET Y 
IF INKEYS = "B" THEN LET Y 
IF X =C AND Y #B TilsI. GOTO 
IF INXEYS 28° THEN LET Z = 2 
IF INKEYZ ="Q" THEN LET Z = 1 
IF L<X THEN LET L = Lt 1 
IF L>X THEN LEL L = L- 1 
IF M<Y THEN LET MK = h+1 
IF M>Y THEN LET M #M -1 


nH 


tou 
AK K PS 


RINT "YOU/RE DEAD" 
GOTO 69 
STOP 
CLS 
PRINT "YOU WIh" 
RUN 


“BREMCER, BREMKER, THIS VERSS THe QUBBER 
Dvexe - YU alt UR FAS on, c'mon? ’ 


